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COBOL is a higher level language, which in theory ought to make it machine 
independent. In practice, however, COBOL contains an Environment Divi- 
sion which makes it, to a limited extent, machine dependent. The problem 
is further compounded by various implementations of the ANS standard. 
Many vendors have included their own extensions, while others have failed 
to implement portions of the standard. In short, a competent COBOL pro- 
grammer has to know specifics of the implementation on his or her machine. 

Even if COBOL were truly compatible from one machine to the next, 
operating systems are totally different. It is one thing to write a sequential 
update in COBOL; it is quite another to create and access the data files 
which the program requires. Text editors also vary greatly, and the COBOL 
programmer must be knowledgeable in this area as well. 

TRS-80 COBOL is vsrritten specifically for the Radio Shack Model II 
and III computers. The author beheves that knowledge of COBOL, in and of 
itself, does not necessarily yield a complete programmer. Included, there- 
fore, are specifics of the TRS-80 COBOL implementation, characteristics of 
the operating system (TRSDOS), and instruction on its text editor (CEBIT). 

At the same time, TRS-80 COBOL is a substantial COBOL text cover- 
ing all elements of the language, as implemented on the TRS-80 machines. 
The author adheres to sound programming practices, and uses structured 
programming exclusively. Pseudocode and hierarchy charts are emphasized, 
while the traditional flowchart is de-emphasized. 

The author employs a "learn by doing" approach which stresses early 
access to the machine as well as constant exposure to complete COBOL pro- 
grams. Every COBOL chapter contains at least one program to tie together 
the major points in that chapter. 

xi 
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Chapter 1 is a rapid introduction to COBOL, and the reader is exposed 
to a complete program almost immediately. The intent is not to master the 
myriad syntactical rules associated with the language, but rather to gain a 
conceptual understanding of what programming is all about. The chapter 
develops the fundamental concept that every computer program consists 
of three phases — input, processing, and output. 

Chapter 2 develops concepts of file processing. A COBOL program is 
written to read an incoming fUe, select various records, and prepare a re- 
port. Associated topics include the use of flowcharts and/or pseudocode and 
the preparation of test data. 

Chapter 3 deals exclusively with the TRS-80. It covers the COBOL text 
editor (CEBIT), elementary commands of the TRSDOS operating system, 
and use of the COBOL compile (RSCOBOL), and runtime (RUNCOBOL) 
modules. The chapter also discusses file name conventions, differentiating 
between source, object, and data files. 

Chapter 4 returns to COBOL. It introduces the COBOL notation, then 
uses the material to explain a basic COBOL subset. The Data Division is 
covered in some depth, with emphasis on the File and Working-Storage sec- 
tions, and group versus elementary items. The chapter ends with another 
complete program. 

Chapter 5 debugs both compilation and execution errors. The program 
of Chapter 4 is rewritten to illustrate common compilation errors, and re- 
written a second time to depict typical execution errors. 

Chapter 6 introduces some advanced elements of the language. These 
include compound tests, condition names, nesting in an IF statement, as well 
as several formats of the PERFORM verb. The chapter presents basics of 
table processing, including the OCCURS and REDEFINES clauses, and rudi- 
ments of a sequential "table lookup". 

Chapter 7 discusses programming style, through a series of guidelines 
designed to make a COBOL program easy to follow. The chapter stresses 
that a well-written program must not only work, but in addition be easily 
read and maintained by someone other than the original author. The chapter 
formally defines "structured programming", although every program from 
Chapter 1 on has been structured. 

Chapter 8 introduces the concept of control breaks, one of the most 
frequent data processing applications. Two programs are developed for single 
and double control breaks, respectively. Each is accompanied with pseudo- 
code and a hierarchy chart. The chapter also completes an earlier presen- 
tation of editing, including use of signed numbers and incorporates this 
material into the illustrative programs. 

Chapter 9 covers subprograms and the COPY statement, both powerful 
COBOL techniques. Specifics of the TRS-80 implementation are shown in 
the programs at the chapter's end. 

Chapter 10 is a comprehensive treatment of table processing. The mate- 
rial on table lookups is reviewed from Chapter 6, then extended to cover 
variable 4ength tables, indexing, and the SET statement. Various techniques 
for table lookups and initialization are contrasted in a complete program. 
TwoJevel tables are covered in depth through a discussion of PERFORM/ 
VARYING/AFTER, multiple OCCURS clauses, and a second program. The 
concepts are then extended to three-level tables. 

Chapter 11 focuses on sequential file maintenance. It develops basic 
vocabulary; e.g., fixed versus variable4ength records, blocked versus un- 
blocked records, and so on. The emphasis, however, is on development of a 
nontrivial maintenance program, entirely through the structured method- 
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ology. Coverage includes top down development and testing, use of program 
stubs, pseudocode, and hierarchy charts. 

Chapter 12 parallels Chapter 11, except for nonsequential maintenance. 
It presents concepts of indexed file organization and the associated COBOL 
elements. It then develops a nonsequential maintenance program with re- 
quirements similar to the one in Chapter 11. 

Exercises are present at the end of each chapter. Of particular interest 
are the debugging problems at the ends of Chapters 8 through 12. Solutions 
to all exercises are included in Appendix A, but no peeking until you have 
made an honest attempt at achieving your own solution. In addition, most 
chapters have one or more programming projects, which must be attempted 
if the reader is to master the material. 
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OVERVIEW This book is about computer programming. In particular, it is about the 
TRS-80 computer and COBOL, a widely used programming language. Pro- 
gramming involves the translation of a precise means of problem solution 
into a form the computer can understand. Programming is necessary because, 
despite reports to the contrary, computers cannot think for themselves. 
Instead they do exactly what they have been instructed to do, and these in- 
structions take the form of a computer program. The advantage of the com- 
puter stems from its speed and accuracy. It does not do anything that a 
human being could not do, if he or she were given sufficient time. 

All computer applications consist of three phases: input, processing, 
and output. Information enters the computer, it is processed (i.e., calcula- 
tions are performed) and the results are communicated to the user. Input can 
come from the TRS-80 keyboard, a diskette, a tape cassette, or any of a 
variety of other devices. Processing encompasses the logic to solve a problem, 
but in actuality all a computer does is add, subtract, multiply, divide, or 
compare. All logic stems from these basic operations, and the power of the 
computer comes from its ability to alter a sequence of operations based on 
the results of a comparison. Output can take several forms. It may consist of 
a computer printout, or it may be payroll checks, computer letters, mailing 
labels, etc. 

We shall begin our study of computer programming by posing a simple 
problem for solution on the TRS-80. We move quickly into COBOL and ex- 
amine a complete program. The reader may observe that this rapid entrance 
into COBOL is somewhat different from the approach followed by most 
books, but the author believes in learning by doing. There is nothing very 
mysterious about COBOL programming, so let's get started. 



THE Fl RST Let us pose a very simple problem; calculate the average of three test grades. 
PROBLEM In order to obtain the solution, the three grades must be added together and 
the sum divided by three. 

If this problem is to be solved on a computer, one must provide for the 
three phases of any computer application: input, processing, and output. 
One has to enter the test grades into the computer, which in turn processes 
the data to obtain an average, and finally the computer has to display the 
calculated results. 



COBOL: A Every COBOL program contains four divisions, which appear in specified 
FIRST LOOK order. These are: 



IDENTIFICATION 
DIVISION 



ENVIRONMENT 
DIVISION 



This division contains the program 
and author's name. It can also con- 
tain other identifying information, 
such as date written, installation 
name, and so on. 
This portion mentions the com- 
puter on which the program is to be 
compiled and executed (usually one 
and the same). It also specifies the 
input/output devices to be used 
by the program. 
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DATA DIVISION 



PROCEDURE 
DIVISION 



This division describes the location 
of incoming and outgoing data. It 
can, for example, describe particular 
columns where output information 
is to appear in a report. 
This division contains the program 
logic, that is, the instructions the 
computer is to execute in solving 
the problem. 



With this briefest of introductions, consider Figure 1.1, which is a com- 
plete program to obtain the average test score. The syntactical rules for 

/COBOL sequence numbers that are referenced in the text material 



'000,1.001 
000110 
000120 
000130 
000140 
C500150 

000160 

000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
0003 1 
000320 
000330 
000340 
0003S0 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000^00 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 



I DENT 1 1- I CAT ION DIVISION. 
PROG RAM- ID. AVE RASE . 
AUTHOR. ROBERT GRAUER. 



ENV 1 RONMENT D I V I S I ON . 
CONF I GURAT I ON SE CT I ON . 
SOURCE -COMPUTER. TRS~80. 
OBJECT-COMPUTER. TRB-80. 



-Identification Division 



-Environment Division 



DATA DIVISION. 








WORKING-STORAGE 


SECTION. 






77 TEST-l 




PIC 


999. 


77 TEST-2 




PIC 


999. 


77 TEST-3 




PIC 


999. 


77 TOTAL-SCORE 




PIC 


999. 


77 AVERAGE 




PIC 


999. 



- Data Division 



PROCEDURE DIVISION. 
THE-BOSS. 



PERFORM GET--4JiieUl 
PERFORM DO-PROCE 
PERFORM WR I TE~OUTPUT 
STOP RUN. 



GET-INPUT 



DISPLAY "THE COMPUTER WILL C&KPUTE YOUR AVERAGE" 
POSITION 10 LINE 1 6WBE 



DO-PROCESSING. 




Paragraph names 



DISPLAY "ENTER GRADE ON 
ACCEPT TEST-l. 



DISPLAY "ENTER GRADf^C)) 
ACCEPT TEST- 
DISPLAY "ENTER /^RAZte 
ACCEPT TESr-3 



POSITION 6 LINE 4. 



POSITION 6 LINE 8. 



POSITION 6 LINE 12 



ADD TEBT-1 TE€iT-2 TEST-3 GIVING TOTAL-SCORE. 
DIVIDE T0TAL/-SCORE BY 3 GIVING AVERAGE. 



[mITite-output. 

display "your average grade on 3 tests 



LINE 16 AVERAGE. 



IF AVERAGE > S9 

D I SPLAY " CONGRATUL AT I ONS 



YOU ARE AN A STUDENT" REVERSE 



IF AVERAGE < 70 

DISPLAY "YOU SHOULD STUDY HARDER" REVERSE. 



FIGURE 1.1 The first COBOL program 
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COBOL are very precise, and you are certainly not expected to remember 
them now. However, the author beHeves that immediate exposure to a com- 
puter program is extremely beneficial in terms of stripping away the mystical 
aura that too often surrounds programming. 

Consider the Procedure Division of Figure 1.1, which contains the pro- 
gram's logic and consequently is the most important part of any COBOL 
program. The Procedure Division of Figure 1.1 begins on line 270. It is di- 
vided into tour paragraphs, THE-BOSS, GET-INPUT, DO-PROCESSING, and 
WRITE-OUTPUT, beginning on lines 280, 340, 470, and 510, respectively. 

The relationship of these paragraphs to each other is best explained by 
referring to the hierarchy chart of Figure 1.2. A hierarchy chart for a pro- 
gram is very much like an organization chart for a company. It shows which 
paragraph in a program is the "president" and which paragraphs are subordi- 
nates. As can be seen from Figure 1.2, GET-INPUT, DO-PROCESSING, and 
WRITE-OUTPUT are all subordinate to the paragraph, THE-BOSS. 





THE'BOSS 
































GET-INPUT 




DO-PROCESSING 




WRITE-OUTPUT 



FIGURE 1.2 Hierarchy chart for the first COBOL program 

Statements 290, 300, and 310 in Figure 1.1 are all PERFORM state- 
ments. The PERFORM verb in COBOL transfers control to the designated 
paragraph, which does its job, and on completion returns control to the 
statement following the original PERFORM. Look carefully at THE-BOSS 
paragraph, beginning in Une 280. The first thing it does is invoke a subordi- 
nate, GET-INPUT, to obtain the test grades. Next, it calls a second subor- 
dinate, DO-PROCESSING, to compute the average, and finally a third 
subordinate to WRITE-OUTPUT. When the job of the last paragraph is com- 
pleted, control returns to line 320, which stops the run and terminates the 
program. 

Now that we have an appreciation for the overall workings of the pro- 
gram, let us consider the subordinate paragraphs. To carry the company 
organization analogy a bit further, one might say we are looking at the "job 
descriptions" of GET-INPUT, DO-PROCESSING, and WRITE-OUTPUT. 

The GET-INPUT paragraph consists entirely of DISPLAY and ACCEPT 
statements. The former prints a message on the terminal, e.g., "ENTER 
GRADE ON TEST 1" (in line 380); the latter waits for the user to comply 
and stores the result in the computer's memory. 

The DO-PROCESSING paragraph adds the input obtained by its col- 
league, GET-INPUT, and stores the result as TOTAL-SCORE (Une 480). It 
then divides TOTAL-SCORE by 3 and obtains AVERAGE in hne 490. 

WRITE-OUTPUT displays the average in line 520. This paragraph also 
employs two IF statements in lines 540 and 570, which display additional 
messages, depending on the calculated results. 



ELEMENTS Although the reader is certainly not yet expected to be able to write a 
OF COBOL COBOL program, he or she may be able to intuitively follow simple pro- 
grams like Figure 1.1. This section begins a formal discussion of COBOL so 
that one will eventually be able to write an entire program. 
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COBOL is comprised of six language elements: reserved words, pro- 
grammer-supplied names, literals, symbols, level numbers, and pictures. 
Every COBOL statement contains at least one reserved word, which gives 
the entire statement its meaning. Reserved words have special significance 
and are used in a rigidly prescribed manner. They must be spelled correctly 
or else COBOL will not recognize them. The list of reserved words varies 
from computer to computer, and the TRS-80 list is given in Appendix B. 
The beginner is urged to refer frequently to this appendix for two reasons: 
(1) to ensure the proper spelling of reserved words used in his or her pro- 
gram, and (2) to avoid the inadvertent use of reserved words as programmer- 
supplied names. 

The programmer supplies his own names for files, paragraphs, and data 
names. A paragraph name is a tag to which the program refers, for example, 
GET-INPUT or DO-PROCESSING in Figure 1.1. Data names are the ele- 
ments on which instructions operate, for example, TEST-1 and AVERAGE 
in Figure 1.1. A programmer chooses his own names within the following 
rules : 

1. A programmer-supplied name can contain the letters A to Z, the 
digits to 9, and the hyphen (-). No other characters are permitted, 
not even blanks. 

2. Data names must contain at least one letter. Paragraph names may 
be all numeric. 

3. A programmer-supplied name cannot begin or end with a hyphen. 

4. Reserved words may not be used as programmer-supplied names. 

5. Programmer -supplied names must be 30 characters or less. 

The following examples should clarify the rules associated with pro- 
grammer-supplied names: 

Programmer-Supplied Name Explanation 

SUM-OF-X Valid. 

SUM OF X Invalid: contains blanks. 

SUM-OF-X- Invalid: ends with a hyphen. 

SUM-OF-ALL-THE-XS Valid. 

SUM-0F-ALL-THE-XS-IN-EI\1TIRE-PR0GRAM Invalid: nnore than 30 characters. 

GROSS-PAY-IN-$ Invalid: contains character other than 

letter, number, or hyphen. 
1 2345 Valid as paragraph name, but invalid as 

a data name. 



A literal is an exact value or constant. It may be numeric, that is, a 
number, or non-numeric, that is, enclosed in quotes. Literals appear through- 
out a program, for example in lines 570 and 580 of Figure 1.1: 

IF AVERAGE < 70 

DISPLAY "YOU SHOULD STUDY HARDER". 

In line 570 the numeric literal 70 is compared to the programmer- 
defined name AVERAGE. In the next statement, the non-numeric hteral, 
YOU SHOULD STUDY HARDER, is displayed on the terminal. 

Non-numeric literals are contained in quotes and may be up to 120 
characters in length. Anything, including blanks, numbers, or reserved words. 
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may appear in the quotes and be part of the literal. Numeric literals can be 
up to 18 digits and may begin with a leading (left-most) plus or minus sign. 
The latter may contain a decimal point, but cannot end on a decimal point. 
Examples are shown : 



Literal 



Explanation 



123.4 

"123.4" 

"IDENTIFICATION DIVISION" 

123. 

123- 



Valid numeric literal. 

Valid non-numeric literal. 

Valid non-numeric literal. 

Invalid numeric literal: cannot end on a 

decimal point. 
Invalid numeric literal: the minus sign 
must be in the left-most position. 



Symbols are of three types, punctuation, arithmetic, and conditional, 
and are contained in Table 1 .1 . 



TABLE 1.1 

COBOL SYMBOLS 



Category 


Symbol 




Punctuation 


■ 


Denotes end of COBOL entry 
Delineates clauses 
Delineates clauses 
Sets off non-numeric literals 




( ) 


Encloses subscripts or expressions 


Arithmetic 


+ 


Addition 




- 


Subtraction 




Jf 


Multiplication 




/ 


Division 


Conditional 


= 


Equal to 




< 


Less than 




> 


Greater than 



The use of conditional and arithmetic symbols is described in detail 
later in the text, beginning in Chapter 4. Commas and semicolons are used to 
improve the readability of a program, and their omission (or inclusion) does 
not constitute an error. Periods, on the other hand, should be used after a 
sentence, and their omission could cause difficulty. 

The period also has special significance with respect to certain COBOL 
verbs, for example, the IF statement. Simply stated, the period terminates 
the effect of the verb. Consider the difference between: 

Example 1 

IF TITLE = "PROGRAMMER" no period 

ADD 1 TO NUMBER-OF-PROGRAIViMERs/ 
MOVE CARD-NAME TO OUTPUT-AREA. 

Example 2 



IF TITLE = "PROGRAMMER" extra period 

ADD 1 TO NUMBER-OF-PROGRAMMERS.>^ 
MOVE CARD-NAME TO OUTPUT-AREA. 
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The two examples contain almost identical COBOL except for the extra 
period in example 2. (They are, however, indented differently to highlight 
the difference in action caused by the extra period.) When an IF condition 
is satisfied, all action between the IF and the period is taken. Hence, in ex- 
ample 1, both the ADD and MOVE will be executed if TITLE = "PRO- 
GRAMMER". However, in example 2, only the ADD will be executed if 
TITLE = "PROGRAMMER", and the MOVE will be executed regardless of 
the TITLE. Much more is said about the IF in Chapter 4. 

Level numbers are used in defining data names. We shall learn in Chap- 
ter 2 that level numbers may go from 01 to 49, and can also include the spe- 
cial number 77. (Only the latter appears in Figure 1.1.) 

Pictures are used in the Data Division to describe the nature of incom- 
ing or outgoing data. A picture of 9's means the entry is numeric, a picture 
of A's implies the entry is alphabetic, and a picture of X's means the entry is 
alphanumeric and can contain letters, numbers, and special characters. Note, 
however, that alphabetic pictures are seldom used; that is, even names can 
contain apostrophes or hyphens, which are alphanumeric rather than alpha- 
betic in nature. Lines 210 through 250 of Figure 1.1 illustrate the use of the 
PICTURE clause. (The reserved word PICTURE can be abbreviated as PIC.) 

Level numbers and pictures are discussed more fully in Chapter 4, 
under the Data Division. The reader may review Figure 1.1 and identify 
the various COBOL elements. As a final aid, consider Figure 1.3, which of- 
fers further intuitive explanation of the program. 



000100 
000110 
000120 
000140 
000150 
000160 



000170 



000190 
000200 



000210-000250 



000270 
000280 



Header for IDENTIFICATION DIVISION. 
Names the program as AVERAGE. 
Identifies the author as Robert Grauer. 
Header for ENVIRONMENT DIVISION. 
Beginning of CONFIGURATION SECTION. 
Identifies TRS-80 as SOURCE-COMPUTER, 
the machine on which the program will com- 
pile. (Chapter 3 describes the compilation 
concept in detail.) 

Identifies TRS-80 as OBJECT-COMPUTER, 
the machine on which the program will 
execute. 

Header for DATA DIVISION. 
Identifies the WORKING-STORAGE 
SECTION. 

Defines programmer-supplied data names 
which will be used in the program. Note that 
all five data names are 77-level entries, and 
further that each is a three position numeric 
field. 

Header for PROCEDURE DIVISION. 
Signals the first, and controlling, paragraph in 
the PROCEDURE DIVISION. 



FIGURE 1.3 Line by line explanation of Figure 1.1 



Chapter 1 

000290-00310 

000320 
000340 

000350-000450 



000470-000490 



000510-000580 



PERFORM statements which transfer control 
to lower level paragraphs for input, processing, 
and output, respectively. 
STOP RUN statement terminates program 
execution. 

GET-INPUT signals the beginning of the para- 
graph which obtains input. (Notice how lines 
350 through 450 are indented under the para- 
graph name of line 340.) 
DISPLAY and ACCEPT statements which 
prompt the user for input and receive same. 
The DISPLAY statements also contain specific 
line and position references where the dis- 
played material is to appear. 
The DO-PROCESSING paragraph which cal- 
culates the average of three test grades. 
The WRITE-OUTPUT paragraph which dis- 
plays the calculated result on the terminal. 

FIGURE 1.3 Continued 



SUMMARY This chapter presented a rapid introduction into COBOL. The reader was 
shown a completed program and given only a brief intuitive explanation. 
Nevertheless, the reader may have gained a basic understanding of computer 
programming and the fundamental concept that all applications consist of 
input, processing, and output. 

Every COBOL program contains four divisions: Identification, Environ- 
ment, Data, and Procedure, in that order. The latter contains a program's 
logic and is most important. A hierarchy chart, analogous to a company's 
organization chart, is useful in explaining the relationship among paragraphs 
in the Procedure Division. 

The COBOL language is comprised of six elements. These are: reserved 
words, programmer-supplied names, literals, symbols, level numbers, and 
pictures. The chapter contained a formal introduction to COBOL, covering 
syntactical rules for these elements. 



TRUE/FALSE 

1. A COBOL program can run on a variety of computers. 

2. The divisions of a COBOL program may appear in any order. 

3. Non-numeric literals may not contain numbers. 

4. Numeric literals may contain letters. 

5. The picture clause indicates the type of data; e.g., numeric or alphanumeric. 

6. The ACCEPT statement waits for a user response. 

7. The DISPLAY statement prints a message on the CRT. 

8. A data name cannot contain any characters other than a letter or a number. 

9. The period has no effect on an IF statement. 
10. Reserved words may be used as data names. 
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EXERC/SES 

1. With respect to the COBOL program of Figure 1.1, 

(a) Identify five reserved words. 

(b) Identify five programmer-supplied names. 

(c) Identify three non-numeric literals. 

(d) Identify three numeric literals. 

(e) Identify two conditional symbols. 

( f ) Identify one level number. 

(g) Identify one picture clause. 

(h) Identify five Procedure Division verbs. 

2. Modify Figure 1.1 so that: 

(a) The message, "YOU SHOULD STUDY HARDER", will appear only if the average 
is less than 60. 

(b) The message, "CONGRATULATIONS -YOU ARE AN A STUDENT", will never 
appear. 

(c) The average is based on four grades instead of three. 

3. Classify the following entries as being valid or invalid literals. For each valid entry, in- 
dicate if it is numeric or non-numeric; for each invalid entry, indicate the reason why 
it is invalid. 



(a) 


567 


(b) 


567. 


(c) 


-567 


(d) 


-H567 


(e) 


FIVE-SIX-SEVEN 


(f) 


"567." 


(g) 


"FIVE SIX SEVEN" 


(h) 


"-567" 


(i) 


567- 


(i) 


567+ 


(k) 


"567+" 



4. Indicate whether the following entries are vaUd as data names. If any entry is invalid, 
state the reasons. 



(a) 


NUMBER-OF-TIMES 


(b) 


DATE 


(c) 


12345 


(d) 


ONE TWO THREE 


(e) 


IDENTIFICATION-DIVISION 


(f) 


IDENTIFICATION 


(g) 


HOURS- 


(h) 


GROSS-PA Y-IN-DOLLARS 


(i) 


G ROSS-PA Y-IN-$ 



OVERVIEW The COBOL program of Chapter 1 dealt with limited I/O (Input/Output). 
The person executing the program had to input values for three test grades 
through the keyboard, while the output was displayed on the CRT. This 
approach, using low speed I/O devices, is suitable in situations with small 
amounts of data, but unacceptable in commercial environments with large 
volumes of data. 

This chapter discusses how to process substantial quantities of data. It 
begins with definition of basic terms: field, record, and file. It develops the 
logic necessary for file processing and presents both flowcharts Qnd pseudo- 
code. Finally, it contains a complete COBOL program encompassing this 
logic, and discusses the COBOL elements required for file processing. These 
include the SELECT, FD, OPEN, CLOSE, READ, and WRITE statements. 



VOCABULARY 



A record is a set of facts about a logical entity. An employee record, for ex- 
ample, might contain the employee's name, title, salary, and date of birth. 
A student record could contain the student's name, address, grade point 
average, year in school, and major. Each fact, e.g., name, title, salary, and 
date of birth is known as a field. Each employee record, therefore, has four 
fields, and each student record has five (name, address, grade point average, 
year in school, and major). 

A file is a set of records. In a company of 1,000 employees, there 
would be 1,000 employee records (each with four fields) but only one em- 
ployee file which contains all 1,000 records. With this as background, con- 
sider a simple example of file processing. 



EMPLOYEE Let us assume that we are to process a file of employee records and print the 
SELECTION name and salary of any individual who is both a programmer and less than 
PROBLEM 30 years old. Let us further assume that the employee file contains sufficient 
data to solve the problem (i.e., each employee record has four fields: name, 
age, job title, and salary). Our program is to examine the first record and 
determine if the employee is qualified, then check the second record, and so 
on until all records have been processed. In other words, we are to develop a 
program that adheres to the following logic: 

1. Read an employee record and stop when all records have been read. 

2. If the employee whose record was just read is not a programmer, go 
back to step 1. 

3. If the employee whose record was just read is 30 or over, go back to 
step 1 . 

4. Print relevant information for any employee reaching this point. 

5. Go back to step 1. 

Flowcharts 

The first step in writing a program is to develop the logic the program will 
follow. The result of this effort can be a flowchart, which is nothing more 
than a pictorial representation of the logic inherent in a computer program. 

A flowchart to determine the programmers under 30 is shown in Fig- 
ure 2.1. The flowchart contains blocks with different shapes, where the 
shape implies the nature of the process. In particular, elipses indicate the logi- 
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Z' START A 




Processing loop indicating that instructions 
will be executed many tinnes 



FIGURE 2.1 Flowchart to select programmers under 30 

cal beginning or end of the entire flowchart, diamond-shaped boxes indicate 
a decision, parallelograms denote input/output operations, and rectangles de- 
note straightforward processing. (All shapes conform to American National 
Standards Institute (ANSI) conventions and are used universally.) 

The logic in Figure 2.1 should prove easily understandable, but Table 
2.1 may provide additional insight. There is, however, one complication, the 
presence of two read blocks (blocks 3 and 10) and the "end of file" test in 
block 5. The necessity for these blocks is mandated by the nature of the 
read instruction. The function of a read is to obtain a record, but there will 
always be a point when a read is attempted and no record is found; that is, 
all the records have already been read. Since one does not know in advance 
how many records a file contains, the read instruction must also signal the 
"end-of-file" condition. Thus, if a file contains two records, it is actually 
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TABLE 2.1 

BLOCK BY BLOCK EXPLANATION OF FLOWCHART IN FIGURE 2.1 



Block Number 



Type 



Explanation 



1 Terminal 

2 Processing 

3 I/O 



4 


Connector 


5 


Decision 


6 


Terminal 


7 


Decision 


8 


I/O 


9 


Connector 


10 


I/O 



Every flowchart contains a START block to indicate 
where program flow begins 

As a rule, most programs require some initial processing 
known as housekeeping. Writing a page heading at the 
start of a report is a good example. 

Reads the first record only. Note that, if the file is empty, 
execution of block 5 will cause the program to fall 
through without entering blocks 7 to 1 inclusive. The 
presence of this Initial read is often bothersome to stu- 
dents when they first confront it. Its presence, however, 
is mandated by the nature of the read instruction and 
is further explained in the section on sample data. 

Serves as an entry point into the loop which processes 
employee records. 

Tests whether the end-of-file condition has been reached. 
If so, control goes to block 6, if not, control goes to 
block 7. 

Signals the end of processing. 

Tests whether the employee currently being processed is a 
programmer and under 30. If so, control passes to 
block 8. If not, control passes to block 9. 

Writes information on any employee reaching this point. 

Terminates the decision making process. 

Reads the next record, after which the connector in 
block 4 is reentered, and the end-of-file condition 
is tested in block 5. Note that when the end of file 
is sensed in block 10, control passes to blocks 4, 5, and 
6, consecutively. 



read three times (once for each record, and once to indicate that all records 
have been read). In similar fashion, a file containing N records is read N+1 
times. 

With this in mind, consider Figure 2.1 and assume there are only two 
records in the file, A and B. Record A is read by block 3. The end of file has 
not been reached, so blocks 7 through 9 are executed for record A. Record 
B is read in block 10. Again, the end of file has not been reached, so blocks 7 
through 9 are executed for record B. When block 10 is executed a second 
time, the end of file is reached. Hence, the next execution of block 5 falls 
through to STOP. In summary, three reads have been executed; two records 
were processed, and the third read registered the end of file. 

Pseudocode 

The purpose of a flowchart is to convey the logic of a computer program in 
an easily understood form. An alternative technique, which has gained popu- 
larity in recent years, is pseudocode (also known as structured English). This 
method uses English statements in the form of instructions similar to those 
of a computer language, to describe logic. Pseudocode, however, is not 
bound by the formal syntactical rules followed by all programming languages. 
Nor is it bound by rules for indentation, which is done strictly at the discre- 
tion of the person using it. An example of pseudocode to describe the pro- 
grammer problem is shown in Figure 2.2. As can be seen, pseudocode is 
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Housekeeping 
Initial read 
(-DO while data remains 

IF employee is a programmer and under 30 

Write name on report 
ELSE 

Do nothing 
1-ENDIF 
Read next record 
l-ENDDO 
STOP 



FIGURE 2.2 Pseudocode to select programmers under 30 

considerably more succinct than a flowchart and just as easy to follow. Con- 
sequently, it is the distinct preference of this author. 

Test Data 

Figure 2.3 contains sample data for the flowchart of Figure 2.1. Consider 
what happens when these data are run through the flowchart. 



JOHN DOE 



I pec;gy yiLcox 



> Rejected due to age 

ANALYST 



iimm 



' R06RAMME R3 1 1. 9000 



JOHN SMITH 
SHEILA LEVTNE 
MARSLIAL CRAWF 



JRl) 



PR0GRAMMER24 1 ."3000 
PROGRAMMERS'? 1 9000 
MANAGER 33 28000 



- Selected record 



STANLEY STEAMER 



PROGRAMME R2:; 



BENJAMIN LEE 
DICK PERSNICKETY 



39000 



I MARION MILGRQM" 



PR0SRAMMER26 
PROGRAMER 28 



J 2000 
1 9000 



JR. PROG 



10000 



Rejected because of title 

FIGURE 2.3 Test data 

The START and HOUSEKEEPING blocks are entered with no great 
effect. The first record, John Doe, is read by block 3. The end of file is not 
reached, so control passes to block 7, the test for a programmer under 30. 
Since John Doe is an analyst, rather than a programmer, control flows to the 
connector in block 9. The second record, Peggy Wilcox, is read in block 10. 
The end of file test is not met in block 5, so control passes again to the test 
in block 7. Ms. Wilcox is a programmer but is over 30, so control goes again 
to the connector in block 9, and finally to the read in block 10. John Smith 
is read in, and passes the programmer and age tests to reach the WRITE 
block (8). At this point, John Smith's name is written to a report, and the 
process continues. 

Assume that the flowchart of Figure 2.1 was translated into a computer 
program, that the program was executed for the data shown in Figure 2.3, 
and that the report of Figure 2.4 resulted. The reader should carefully ex- 
amine the input data and determine why various records did or did not ap- 
pear in the resulting report. 

Note in particular the absence of Dick Persnickety from Figure 2.4. At 
first glance it appears that an error has been made. This employee is a pro- 
grammer and only 28 years old. Why then was the record omitted? Look 
carefully at how programmer is spelled; one "m" as opposed to two "m"s 
for the selected records. A human being knows that either spelling is accept- 
able, but the computer follows instructions to the letter. Apparently, it was 
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'Spelled exactly as it appears in program of Figure 2.5 



ZZl 



I.SALRYl REPORT FOR PROGRAMMERS UNDER 30 

24 15000 
29 190130 

22 39000 
26 1 2000 



JOHN SMITH 
SHE I LA LiiVINE 
STANLEY STEAMER 
BENJAMIN LEE 



FIGURE 2.4 Printed report 

not programmed to recognize the alternate spelling, and hence Persnickety 
was rejected. 

The word "salary" is misspelled in the report of Figure 2.4. This is also 
indicative of the fact that computers execute programs without regard to 
their correctness. If a programmer misspells a word, and subsequently directs 
the computer to write that word, it will be written incorrectly. Mistakes of 
this kind, however, tend to be less severe than logic errors, and programmers 
are justifiably more concerned with logic rather than spelling. Users, on the 
other hand, will be concerned with spelling, choice of verbiage, formatting, 
and the like. 

Implementation in COBOL 

Now that we have developed the logic necessary for file processing, we can 
implement the flowchart of Figure 2.1 in COBOL. The resulting program is 
shown in Figure 2.5. The reader may already understand most of this pro- 
gram from the material in Chapter 1. Nevertheless, we discuss those state- 
ments in Figure 2.5 which pertain to file processing, and consequently did 
not appear in the first chapter. The discussion will again aim at conceptual 
understanding rather than detailed memorization. (Fear not, however; in 
Chapter 4 we provide a formal discussion of all COBOL elements covered to 
date.) 

Line 190 of Figure 2.5 introduces the INPUT-OUTPUT SECTION of 
the Environment Division, which is required for file processing. Every file 
used in the program is first defined in a SELECT statement. Note well the 
presence of two SELECT statements, indicating two files. The first refer- 
ences EMPLOYEE-FILE, which contains the test data of Figure 2.3. The 
second, perhaps unexpected, file is PRINT-FILE and contains the report 
of Figure 2.4. The SELECT statement ties programmer-chosen file names, 
e.g., EMPLOYEE-FILE and PRINT-FILE, to TRS-80 system names, e.g., 
FIRSTTRY/DAT and FIRSTTRY/TXT, which exist on a diskette. (More on 
this in Chapter 3.) 

Any file mentioned in a SELECT statement is further defined in an 
FD (file description) appearing in the FILE SECTION of the Data Division. 
The FD for EMPLOYEE-FILE extends from lines 280 through 310. It in- 
dicates standard labels, meaning the file information is in the usual TRS-80 
format. It states that the record length is 80 characters (note well that the 
picture clauses sum to 80) and finally that the record name is EMPLOYEE- 
RECORD. Observe also that the record length for PRINT-FILE is 132 
characters, the normal length for a printer. 
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000100 

000110 
000120 
000130 
000140 
000150 
000160 

000170 

000 130 

000190 

000200 

00Ci)210 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000500 

0005 1 

000520 

000530 

000540 

000550 

000560 

000570 

0005S0 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 

000710 

000720 

000730 

000740 

000750 

000760 

000770 

000 780 

000790 

000800 

000810 



I DENT 1 1" I CAT I ON D I V I S I ON . 
PROGRAM- I D . F I RST T RY . 
AUTHOR. MARION MTLGROM. 



ENV I RONMEN T D I V I S I ON . 
CONF IGURATION SECT ION. 
SOURCE-COMPUIER. 
OBJECT-COMPUTER. 



IN PUT -OUT PUT 




FILE-CONTROL 
SELECT I 

ASSIGN TO INPUT 
SELECT PRINT-FILE 



Required for file processing 



Filename also specified in FD, OPEN, 
and CLOSE statements 



'FIRSTTRY/DAT 



ASSIGN TO PRINT "FIRSTTRY/T X T" , 



DATA DIVISION. 
FILE SECTION. 
|FD EMPLOYEE-FILE] 



- FD is required for every file 



LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE-RECORD. 
EMPLOYEE-RECORD. 



|05 


EMP-NAME 


PIC X(20).| 


05 


EM P -TITLE 


PIC X(10). 


|05 


EMP-AGE 


PIC 99. 1 



FD 



01 



05 FILLER 

05 EMP-SALARY 

05 FILLER 

PRINT-FILE 

LABEL RECORDS ARE STANDARD 



[RECORD CONTAINS 132 CHARACTERS 




DATA F?ECORD 
PRINT-LINE. 



IB PRINT- LINE. 




'EMP-NAIVIE is in positions 1-20 



EMP AGE is in positions 31 and 32 



PICTURE clauses sum to 132 



05 
05 
05 
05 
05 
05 



PRINT-NAME 

FILLER 

PRINT-AGE 

FILLER 

PRINT-SALARY 

FILLER 



PIC 


X ( 25 ) . 


PIC 


XX. 


PIC 


99. 


PIC 


X(3) . 


PIC 


9 < 5 ) . 


PIC 


X ( 95 ) . 



WORKING-STORAGE SECT ION. 
77 WS-DATA-REMA INS-SWITCH 



PROCEDURE D I V I S I ON . 
SELECT-PROGRAMMERS. 



PIC X(3) VALUE SPACES. 

Files are opened before processing 



OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 



MOVE SPACES TO PRINi 
MOVE "IbALRYI- 



-Salary is misspelled 



'TiRT FOR PROGRAMMERS UNDER 30" TO PRINT-LINE. 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 



READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 



PERFORM PROCESS-RECORDS 

UNTIL WS-DATA-REMAIN3-SWITCH = "NO" 



CLOSE EMPLOYEE FILE 

PRINT-FILE. 



STOP RUN. 



Initial read 
Files are closed prior to termination 



Executed only when IF is satisfied 

30 



PROCESS-RECORDS. 

IF EMP-TITLE =^PT?OGRAMMER" AND EMP-AGE 

MOVE SEACEfS TO PR I NT- LINE 

MOVr^MP NAME TO PR I NT -NAME 

MOVE EMP-AGE TO PRINT-AGE 

MOVE EMP-SALARY TO PRINT-SALARY 

WRITE PRINT-LINE „. , . _ ■ . ,r 

'Single period terminates IF statement 



AFTER ADVANCING 2 LINEsQ-"^" 



READ EMPLOYEE -F I LE 

AT END MOVE "NO" T WS- D AT A- REM A I NS- SW I T CH . 



^ Reads every record but the first 

FIGURE 2.5 File processing program 
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IDENTIFICATION DIVISION. 
PROGRAM-ID. 8 character name. 

AUTHOR. your name. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 



SELECT STUDENT-FILE ASSIGN TO 
SELECT PRINT-FILE ASSIGN TO 



DATA DIVISION. 

FILE SECTION. 

FD STUDENT-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS STUDENT-RECORD. 
STUDENT-RECORD. 
05 etc. 



01 



/SELECT statements are related 
to TRS-80 data files and are 
further explained in Chapter 3. 



FD PRINT-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE. 
05 etc. 

WORKING-STORAGE SECTION. 

77 EOF-SWITCH PIC XXX VALUE SPACES. 



PROCEDURE DIVISION. 
MAINLINE. 

OPEN INPUT STUDENT-FILE OUTPU 



READ STUDENT-FILE 

AT END MOVE "NO" TO EOF-SWITCH 




Initial (priming) READ 
which is executed once. 

FILE. 



PERFORM PROCESS-RECORDS 
UNTIL EOF-SWITCH = "NO". 

CLOSE STUDENT-FILE, PRINT-FILE. 
STOP RUN. 

PROCESS-RECORDS. 



your logic here 



Last statement of performed 
routine Is a second READ. 



READ STUDENT-FILE 

AT END MOVE "NO" TO EOF-SWITCH. 



FIGURE 2.6 Skeletal COBOL outline for file processing 
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Chapter 2 19 

The Procedure Division opens each file (lines 570 and 580) prior to 
actual processing. Lines 590 through 620 collectively write the heading line 
of Figure 2.4. The WRITE statement itself references PRINT-LINE, which 
is the record name defined in the FD for PRINT-FILE in line 430. 

Lines 630 and 640 correspond to the "initial read" of block 3 in the 
flowchart of Figure 2.1. The READ of line 630 references EMPLOYEE- 
FILE, which appeared previously in SELECT, FD, and OPEN statements. 

The PERFORM statement includes an UNTIL clause, which executes 
the paragraph PROCESS-RECORDS an indeterminate number of times 
until the value of WS-DATA-REMAINS-SWITCH = "NO". The last state- 
ment of the paragraph PROCESS-RECORDS is another READ (block 10 in 
the flowchart) which accesses the next employee record in the file. If, how- 
ever, the "end of file" is reached, then the AT END clause sets the value of 
WS-DATA-REMAINS-SWITCH to "NO", which terminates the PERFORM 
and returns control to the statement under the PERFORM. Both files are 
closed in lines 670-680, and processing terminates. 



SUMMARY This chapter made the critical transition from programs containing limited 
input/output to business applications with large volumes of data. It began by 
defining the terms field, record, and file, and developed the logic necessary 
for elementary file processing. Flowcharts and pseudocode were presented 
as alternative means of expressing logic. 

The essence of the material is in the relationship of Figures 2.1, 2.3, 
and 2.4. The first contained a flowchart for the "Employee Selection Prob- 
lem", the second contained test data, and the third the resulting report. It is 
critical that the reader be able to relate the output of Figure 2.4 to the input 
of Figure 2.3. 

Figure 2.5 contained the COBOL program to implement the logic of 
the flowchart. Attention was focused on the file processing aspects of 

COBOL; specifically, the SELECT, FD, OPEN, CLOSE, READ, and WRITE 
statements of Figure 2.5. The reader should also be able to tie the program 
of Figure 2.5 to the flowchart which preceded it. Finally, Figure 2.6 con- 
tains a skeletal outline of a COBOL program for file processing, which 
should prove useful as you begin to write your own programs. 



TRUE/FALSE 

1. A file is a set of records. 

2. A record is a set of files. 

3. The computer is a perfect speller and automatically corrects spelling errors. 

4. A field contains one or more records. 

5. Pseudocode must be written according to precise syntactical rules. 

6. Pseudocode serves the same function as a flowchart. 

7. A COBOL program often contains two distinct read statements. 

8. The read statement typically contains an AT END clause. 

9. A file name may not appear in more than two statements in the same program. 
10. Every program must have a file section. 
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Chapter 2 



EXERCISES 



1. Given the following data as input: 



Name 



Location 



Years of 
Service 



Salary 



J. Anderson 


Boston 


4 


$40,000 


V. Barbarino 


New Yorl< 


12 


24,000 


A. Horshack 


N.Y., N.Y. 


8 


26,000 


G. Kotter 


Los Angeles 


7 


29,000 


F. Unger 


Chicago 


9 


18,000 


0. Madison 


Boston 


7 


34,000 


V. Albright 


N.Y, 


11 


26,000 


M. Wei by 


New Yorl< 


3 


42,000 



(a) What problems, if any, do you see in constructing a flowchart, and an eventual 
program, to determine the employees from New York with at least four years of 
service? 

(b) Develop a flowchart and corresponding pseudocode to select employees with the 
qualifications from part (a). (Use Figures 2.1 and 2.2 as a guide.) 

(c) Run the data through your flowchart. Which employees qualify? Which fail the 
service test? Which fail the location test? 

(d) Could you modify your flowchart to include only employees 30 years or older? 
Why or why not? 

National Widgets is seeking a plant manager in Columbus, Ohio. It is looking to pro- 
mote an individual from within the corporation, rather than hire from outside. The 
selected employee must have previous manufacturing experience and at least five years 
service with the company. Your programming manager has drawn a flowchart of this 
problem that will print the name of any qualified individual, as well as the number of 
qualified individuals. Unfortunately, he left it on his dining room table at home, and 
his two-year old daughter, Jessica, got to it first with a pair of scissors. Fortunately, 
he was able to gather the pieces (Figure 2.7) before Jessica could do further damage. 
Rearrange the pieces into a correct flowchart. 



( START j 



READ FIRST 
RECORD 



HOUSEKEEPING 



( STOP j 



READ NEXT 
RECORD 



ADD 1 TO 
NUMBER OF 
QUALIFIED 
EIVIPLOYEES 



o 



May be used more 
than once 




WRITE NAME 

OF QUALIFIED, 

EMPLOYEE 



'WRITE NUMBER/ 

OF QUALIFIED/ 

EMPLOYEES 

FIGURE 2.7 Scrambled flowchart 
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Figure 2.8 represents a COBOL program to process a file of student records and print 
the names of selected students. The selected students are to have at least 110 credits 
and also a major in engineering. As can be seen, various portions of the COBOL pro- 
gram have been blanked out. Restore the missing information so the program will run 
as intended. 



IDENTIFICATI' 

Pf?OGRAM-ID. 

AUTHOR. 



)N DIVISION. 
STUDENT . 
MARION MILS ROM. 



ENV I RONMENT D I V I S I ON ■ 

SOU R CE-COMPUTER. 
OBJECT-COMPUTER. 

I NPUT-OUTPUT SECT I ON . 
FILE-CONTROL. 

SELECT ] 

ASSIGN TO INPUT 

SELECT PRINT-FILE 




STUDENT/DAT" 



ASSIGN TO PRINT "STUDENT/TXT", 



DATA DIVISION. 



FD 





STUDENT-FILE 

LABEL RECORDS ARESJANUARD 

RECORD CONTAINS | [ CHARACTERS 

DATA RECORD IS STUDENT-RECORD. 

STUDENT-RECORD. 

05 STU-NAME PIC X(20). 

05 STU-MAJOR PIC X(10), 

05 BTU-CREDITS PIC 9(3). 

05 FILLER PIC X(47). 

PRINT-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 132 CHARACTERS 

DATA RECORD IB PRINT-LINE. 

PRINT-LINE. 

05 FILLER PIC X(S). 

05 PRINT-NAME PIC X ( 25 ) . 

05 FILLER PIC X(99). 



WORK I NG-STORAGE SECT I ON . 
~1 WS-DAT A~REMA I NS-SW I TCH 



PIC X(3) 



VALUE SPACES. 




EDURE DIVISION 
CT-E NGINEg^ tf1^-SENI0R5. 
OPEN I I STUDENT-FILE 
OUTPUT PRINT-FILE. 
MOVE SPACES TO PRINT-LINE 
READ BTUDENT-FILE 

AT END MOVE "NO" TO U 
PERFORM PROCESS-RECORDS 

UNTIL WS-DATA-REMAINS-SWITCH 



DAT A-REMA I NS-SW I TCH . 



"NO", 



STUDENT-FILE 
PRINT-FILE. 



STOP RUN. 



IF STU-MAJOR = "ENGINEERING" AND STU-CREDITS 
MOVE SPACES TO PRINT-LINE 
MOVE STU-NAME TO PRINT-NAME 
WRITE PRINT-LINE __^ii 

AFTER ADVANCING 2 L 
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readC 



END MOVE 




FIGURE 2.8 Fill in the blanks 



OVERVIEW Chapters 1 and 2 presented rudiments of the COBOL language and pro- 
gramming logic. Attention was concentrated on COBOL as it applied to all 
computers, with no specific mention of the TRS-80. This chapter focuses on 
the TRS-80 Models II and III, with emphasis on the associated COBOL 
requirements. 

We begin with a discussion of machine versus problem oriented lan- 
guages with emphasis on the distinction between compiling and executing s 
program. The reader learns how to invoke the TRS-80 COBOL compiler, 
and to execute the generated object module. 

The COBOL Source Program Editor, CEDIT, is introduced as the means 
of creating and modifying COBOL programs. All modes of CEDIT (insert, 
command, and edit) are covered, and the reader should become competent 
in its use. The PRINT utility program is presented to list the results of both 
compilation and execution. The concept of an operating system is intro- 
duced, and various TRSDOS (the TRS-80 Operating System) utilities and 
commands are highlighted. These include: FORMS, KILL, and DIR. 

The chapter examines compiler output of the COBOL program, Fl RST- 
TRY, which was introduced in Chapter 2. Attention is drawn to the various 
compiler options, e.g., a cross reference listing, as well as the COBOL re- 
quirements for entering information in specific columns. 

It should be emphasized that this chapter deals with specifics of the 
TRS-80, and consequently is required reading for experienced COBOL pro- 
grammers not familiar with this computer. The chapter presents a wealth of 
material associated with the TRS-80 operating system, but at an introduc- 
tory level. The reader may also refer to the following manuals for greater 
coverage: 



TRS-80 Model II 
TRS-80 Model II 
TRS-80 Model II 



III) Disk Operating System Reference Manual 
1 1 1 ) COBO L Language Manual 
III) COBOL User's Guide 



COBOL VERSUS 

MACHINE 

LANGUAGE 



Every computer has its own unique machine language tied to specific loca- 
tions in its memory. Human beings, however, think in terms of problems and 
use quantities with mnemonic significance, e.g., HOURS, RATE, PAY, etc. 
We might say that a person thinks in a problem oriented or higher level lan- 
guage while in actuality the computer functions in a machine oriented or 
lower level language. The two are related through a compiler, which is a 
computer program that translates a problem (or source) language into a 
machine (or object) language. COBOL is an example of a problem oriented 
language for business systems. The COBOL compiler is itself a machine 
language program written in the language of the machine on which it is 
executed. 

The wide availability of COBOL compilers provides tremendous flexi- 
bility for individual programs. A COBOL program written for the TRS-80 
can also execute on an IBM, Univac, Honeywell, NCR, or any other machine 
which has a COBOL compiler. The output from each compiler is different. 
The TRS-80 compiler produces a TRS-80 machine language program, a Uni- 
vac compiler produces Univac language, etc. However, this does not concern 
the COBOL programmer. All he or she need know, and indeed care about, 
is COBOL: the compOer does the rest. 

Consider a simple COBOL statement, MULTIPLY HOURS BY RATE 
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GIVING PAY. This takes HOURS, multiplies it by RATE, and puts the 
result into PAY. The values of HOURS and RATE are unchanged as a result 
of this instruction. For this instruction to execute, the compiler has to assign 
locations in its memory to HOURS, RATE, and PAY. It will multiply 
HOURS by RATE in a work area (known as an accumulator or register) and 
put the result into PAY. 

Assume that the compiler decides to store HOURS, RATE, and PAY in 
locations 1000, 2000, and 3000, respectively. It then generates a sequence of 
three machine instructions to accomplish the intended multiplication : 

LOAD 1000 

MULTIPLY 2000 

STORE 3000 

The first instruction, LOAD 1000, brings the contents of location 1000 
(HOURS) into the accumulator. The next instruction multiplies the contents 
of the accumulator by the contents of location 2000 (RATE). The result re- 
mains in the accumulator. Finally, the STORE instruction puts the contents 
of the accumulator into location 3000 (PAY). (Note that these instructions 
are typical of compilers in general and vary from computer to computer.) 

Table 3.1 illustrates the results of three machine language instructions. 
It assumes values of 40 and 5 for HOURS and RATE, respectively. It shows 
the contents of locations 1000, 2000, 3000, and the accumulator before and 
after each of the three machine langu^e instructions are executed. Prior to 
the LOAD instruction, the contents of both locations 3000 and the accumu- 
lator are immaterial. After the LOAD has been executed, the contents of 
location 1000 have been brought into the accumulator. After the MULTI- 
PLY, the contents of the accumulator are 200, and after the STORE, the 
contents of location 3000 are also 200. Note that the initial contents of 
locations 1000 and 2000 are unchanged throughout. 

TABLE 3.1 

MACHINE INSTRUCTIONS TO MULTIPLY HOURS BY RATE 





Before 


Memory 


Contents 


After 




Instruction 


1000 2000 3000 
(HOURS) (RATE) (PAY) 


ACCUM 


1000 2000 
(HOURS) (RATE) 


3000 
(PAY) 


ACCUM 


LOAD 1000 
MULTIPLY 2000 
STORE 3000 


40 5 ? 
40 5 ? 
40 5 ? 


7 

40 
200 


40 5 
40 5 
40 5 


7 
7 

200 


40 
200 
200 



A single COBOL statement invariably expands to one or more machine 
language statements after compilation. This phenomenon is known as instruc- 
tion explosion and is a distinguishing characteristic of compiler langue^es. 
Compare the three machine language statements to the single COBOL state- 
ment. Obviously, the latter is shorter, but it is also easier to write, since the 
COBOL programmer need not remember which memory locations contain 
the data. In the early days of the computer age, there were no compilers, and 
all programs were written in machine language. Then someone had a remark- 
ably simple yet powerful idea: Why not let the computer remember where 
the data are kept? The compiler concept was born, and things have never 
been the same since. 

The remainder of the book deals exclusively with COBOL, rather than 
machine language. Indeed, there is no need for a competent COBOL pro- 
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grammer to even know machine langu^e, provided one is aware of the criti- 
cal role of the compUer. The programmer must, however, be knowledgeable 
about the computer's operating system. 

THE TRS-80 An operating system is a set of machine language programs supplied by the 
OPERATING manufacturer, which provide for the efficient operation of the computer. An 
SYSTEM operating system may include the COBOL compiler (remember a compiler 
is merely a computer program), compilers for other programming languages, 
and some general purpose programs known as utilities. The TRS-80 operat- 
ing system is known as TRSDOS . Communication between the programmer 
and the operating system is accompUshed through various commands, which 
are explained in this chapter. The operating system signals it is ready to ac- 
cept a command with the message TRSDOS READY. 

Many of the instructions to the operating system require the user to 
specify a file which may in turn be either a COBOL program, an operating 
system program, or simply a data file. The following conventions have been 
established with respect to file names: 

1. A file is completely specified by a file name of up to eight charac- 
ters, and a three letter extension, e.g., PAYROLL/CBL. (The exten- 
sion, however, may sometimes be omitted, as when compiling or 
executing a program.) 

2. Certain extensions have predetermined meanings, specifically: 

CBL — appHes to a COBOL source program and is input to the 
compiler 

COB ~ denotes a COBOL object (machine language) program and 
is output from the compiler 

LST — signifies a compiler listing which is also produced by the 
compiler 

3. The same file name often appears with different extensions, e.g., 
PAYROLL/CBL and PAYROLL/COB. 

Given this introduction to TRSDOS, we discuss how to utilize the 
TRS-80 operating system, how to compile programs, and how to execute the 
generated object programs. 



CGMPILATfON 
ON THE TRS-80 



TRSDOS signals it is ready to receive a command by the message, TRSDOS 
READY. Whenever this message appears, the COBOL compiler can be in- 
voked by the command: 



where: 



RSCOBOL filename options 



filename is the name of a COBOL source 

program and is assumed to have the 
extension CBL, e.g., FIRSTTRY/CBL. 

options allow the user to control compiler 
output by invoking (or suppressing) 
various features. A partial set of 
compiler options is listed in Table 
3.2. Multiple options must be 
separated by a space. 



TABLE 3.2 

SELECTED COMPILER OPTIONS 



L — Indicates that the compiler listing is to be written to a disk file with the same name as the 

COBOL source file, but with an extension of LST; e.g., FIRSTTRY/LST. The default is not to 
generate a listing. 

O — Indicates that the output of the compiler, i.e., the object module is to be written to a disk file 

with the same name as the COBOL source file, but with an extension of COB; e.g., FIRSTTRY/ 
COB. The default is to generate an object module. Specification of 0=N will suppress the object 
file. 

P — Indicates that the listing is to be printed. The default is not to print the listing. (Note, however, 
that one can print the listing at a later time through the PRINT utility program, which is ex- 
plained in a subsequent section.) 

T — Indicates the listing is to be displayed on the console. (The user can temporarily halt the listing 
by hitting the HOLD Key. HOLD must be hit a second time when the blinking cursor appears 
for the listing to resume.) The default is not to display the listing on the CRT. 

X — Produces a cross-reference (alphabetical) listing of Data and Procedure Division names, indicating 
where each name is defined and referenced. Specification of this option requires that L, P, or T 
also be specified. The default is not to print a cross reference. 



See COBOL User's Guide for additional information. 



Consider the command, RSCOBOL FIRSTTRY L X T, to compile the 
source program FIRSTTRY/CBL. In addition, it will produce a cross- 
reference listing (X option), direct output to the terminal (T option), and 
put the compiler output into a disk file, FIRSTTRY/LST (L option). An ob- 
ject module, FIRSTTRY/COB is produced by default. 

Compiler Output 

Figure 3.1 is the compiler output which was produced by the command 
RSCOBOL FIRSTTRY L X T. Each page of output has identical heading 
information: date and time of compilation, compiler options, and file 
name as it appears on disk. (Note well that the heading's source file and 
PROGRAM-ID paragraph have the same entry, FIRSTTRY. This is the 
author's convention, rather than a system requirement, and simplifies keep- 
ing track of the many files on a diskette.) 

The COBOL program is listed in its entirety. Observe that each state- 
ment has both a compiler line number, as well as a six -digit sequence num- 
ber. (We learn later in the chapter that the sequence number is actually part 
of the COBOL statement and referenced by a text editor, CEDIT.) 

Observe also that Procedure Division statements have an additional entry 
between the line and sequence numbers. These entries represent the address 
at which the generated machine language instructions for the COBOL state- 
ment begin. These addresses will prove useful in indicating where execution 
terminates. 

The third page of compiler output in Figure 3.1 describes entries in the 
Data Division. Notice how elementary items are indented under their respec- 
tive group item. (These terms are clarified in Chapter 4.) Note further how 
the length of every field is calculated. 

The fourth page of output is a cross-reference listing, which has all pro- 
grammer defined names in alphabetical order. The first number following the 
data name is the compiler statement where the item was defined. All subse- 
quent numbers indicate where the data name is referenced or altered, e.g., 
PRINT-SALARY is defined in line 40 and altered in line 67. (Note that 
0067 is enclosed in asterisks.) EMP-NAME, however, is merely referenced in 
line 65 as there are no asterisks around 0065. 
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TRB- B0 Modsl, 



[source 1-ii.j;: firsttryI . 

LINE DEBUG P6/LN A-fT. BT 



1 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



File name as it appears in directory 

i_OB0L ( RM/ COBOL t . 3B ) 
Column 8 
^Column 12 



4/18/81 11.39.05 PAGE 
lOPTIQN LIST: L X T| 



ID. 



!-0000 

>000C 
::-0010 
>0014 



000100 
000110 
1300 1 20 
000130 
000140 
000150 
000 1 60 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
0005B0 
000590 
000600 
000610 
10006201 



tDENTXFICAT 
PROGRAM-ID. 
AUTflOR. 



ON DIVISION. 
FIRSTTRY. 
MARION l-ULGROM. 



Compiler options 



ENV I RONMENT D I V I S I ON . 
CONF I GU RAT ION BE CT I ON . 
SOURCE-COMPUTER. TR3-S0. 
OBO'ECT- COMPUTER. TRB-S0. 



INPUT-OUTPUT SECTION. 
FTLE-CONTROL. 

SELECT EMPLOYEE-F I LE l 

ASSIGN TO INPUT | "FIRSfTRY/DAT" 
SELECT PRINT-FILE 

ASSIGN TO PRINT "FI RSTTRY/TXT" 

DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE- RECORD. 

01 EMPLOYEE -RECORD. 



Filename and extension of ElVlPLOYEE-FILE 
as it appears in directory 



05 
05 
05 
05 
05 
05 



EMP-NAME 

EMP-TITLE 

EMP-A6E 

FILLER 

EMP-SALARY 

FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X < 20 ) , 
X( 10) , 
99. 
XX. 
9(5). 
X(41 ), 



FD 



01 



PRINT-FILE 
LABEL RECORDS 
RECORD CONTAINS 
DATA RECORD IS 
PRINT-LINE. 



ARE STANDARD 

132 CHARACTERS 
PRINT-LINE. 



05 
05 
05 
05 
05 
05 



PRINT-NAME 

FILLER 

PRINT-AGE 

FILLER 

PRINT-SALARY 

FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X ( 25 ) . 
XX. 
99. 
X ( 3 ) . 
9(5) . 
X ( 95 ) , 



WORKI NG-BTORAGE SECT I ON. 
77 WS-DATA~REMA I NS-SW I T CH 



PIC X(3) 



VALUE SPACES. 



PROCEDURE DIVISION. 
SELECT-PROGRAMMERS. 

OPEN INPUT EMPLOYEE-FILE 

OUTPUT PRINT-FILE. 
MOVE SPACES TO PRINT-LINE. 
MOVE "SALRY REPORT FOR PROGRAMMERS 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 



UNDER 30" TO PRINT-LINE. 



^ COBOL sequence numbers are in columns 1-6 
Compiler statement number 



TRS-S0 Model II COBOL (RM/ COBOL 1.3B) 

SOURCE FILE: FIRSTTRY n a a 

/A and B margins 



.INE DEBUG PG/LN 



■ B. 



4/13/31 11.39.05 
OPTION LIST: L X T 



PAGE 



Compilation page number 
, ID. . . 



54 


>001E 


000630 


55 




000640 


56 


>0028 


000650 


57 




000660 


58 


>0032 


000670 


59 




000680 
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READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA~REMAINS-SWITCH. 
PERFORM PROCESS-RECORDS 

UNTIL W3-DATA-REMAINS-SWrrCH == "NO". 
CLOSE EMPLOYEE-F I LE 
PRINT-FILE. 

FIGURE 3.1 Compiler output 



60 


>003E 


.000690^ 


61 




000700 


62 


>0040 


m^2-ir%- 


63 


>0040 


T?f00720 


64 




000730 


65 




000740 


66 




000750 


67 




000760 


68 




000770 


69 




000780 


70 




000790 


71 


.>0066 


000B00 


■7 ■'■-' 




000810 



STOP RUN. 

■Hexadecimal address 

'T^OCEiSS-RECORDS. 

IF EMP-TITLE = "PROGRAMMER" AND EMP-AGE < 30 
MOVE SPACES TO PRINT-LINE 
MOVE EMP-NAME TO PRINT-NAME 
MOVE EMP-AGE TO PRINT- AGE 
MOVE EMP-SALARY TO PRINT-SALARY 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 

READ EMPLOYEE -FII._E 

AT END MOVE "NO" 10 WB-DATA-REMA INS-SWITCH. 
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112.111 END PROGRAM. 



*** END OF FILE *** 



^Last line is inserted by compiler 



TRS~80 Model 11 COBOL |_(_R_M/ COBOL 1.3B)| 
SOURCE FILE: FIRSTTRY 



ADDRESS 



v 



^COBOL release 

51 7E DEBUG ORDER TYPE 



|47is/8l| I 11 .39 .05 I PAGE 
OPTIOnNTI ST:/I- X T 



NAM 



—Date and time of compilation 



>0000 
>0000 
)0014 
>001E 
>0022 





80 GRP 

20 ANS 

10 ANB 

2 NSU 

5 NSU 



FILE 

GROUP 

ALPHANUMERIC 

ALPHANUMERIC 

NUMERIC UNSIGNED 

NUMERIC UNSIGNED 



EMPLOYEE-FILE 
EMPLOYEE- RECORD 
EMP-NAME 
EMP-TITLE 
EMP-AGE 
EMP-BALARY 



>0054 
>0054 
>006F 
>0074 

>00E0 




FILE 
GROUP 
ALPHANUMERIC 
NUMERIC UNSIGNED 
NUMERIC UNSIGNED 



ANS ALPHANUMERIC 

PRINT-SALARY is 5 characters 



READ ONLY BYTE SIZE == .>0158 

READ/WRITE BYTE SIZE = >015A 

OVERLAY SEGMENT BYTE SIZE = >0000 

TOTAL BYTE SIZE = >02E2 



ERRORS 
WARNINGS 



- Compilation results 



PRINT-FILE 
PRINT-LINE 



PRINT-NAME 

PRINT-AGE 

PRINT-SALARY 



'WS-DATA- REMAINS-SWITCH 
-Elementary items are indented under group item 



-EMP-NAME is defined In line 24, and referenced in line 65 



TRS-80 Model 
SOURCE FILE: 



1 1 COBOL 
FIRSTTRY/ 



(RM/ COBOL 1.3B) 



4/18/81 11.39.05 PAGE 
OPTION LIST: L X T 



cross reference 

"employee-file 
employee-record 

EMP-AGE 



EMP-NAME 



EMP-SALARY 

EMP-TITLE 

PRINT-AGE 

PRINT-FILE 

PRINT-LINE 

PR I NT- NAME 

PRINT-SALARY 

PROCESS-RECORDS 

SELECT-PROGRAMMERS 

WS-DAT A- REMA I NS- Sl-J I T CH 



- Data names appear alphabetically 



/DECL/ *DEBT 

/0012/ /0019/ 0048 

/0023/ 

/0026/ 0063 0066 



0054 



/0024/ 0065 



/0028/ 
/0025/ 
/0038/ 
/0014/ 
/0035/ 
/0036/ 



0067 
0063 
*B066* 
/0031/ 
*0050* 
*0M5* 



0049 
*0051* 



00!: 
*00;; 




0038 



0071 



?* *0064» *006S* 



00S: 



*0072* 



^PRINT-SALARY is altered in statement 67 
^PRINT-SALARY is defined in statement 40 
FIGURE 3.1 Continued 
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EXECUTION 
ONTHETRS-80 



Once compilation has been successfully completed, the programmer may at- 
tempt to execute the compiled program. This is accomplished by entering 
RUNCOBOL, followed by the filename; e.g., RUNCOBOL FIRSTTRY. 

The relationship between compilation and execution is shown by Fig- 
ure 3.2. Realize that two distinct programs are executed. In step 1, the com- 
piler accepts FIRSTTRY/CBL as input and produces both a compiler listing 
FIRSTTRY/LST, and a machine language program, FIRSTTRY/COB as out- 
put. The latter program in turn is executed in step 2. It accepts FIRSTTRY/ 
DAT (a data file as input) and produces the report FIRSTTRY/TXT as 
output. 



FIRSTTRY 

/CBL 



STEP 1 

RSCOBOL 

(Compilation) 



FIRSTTRY 
/DAT 




FIGURE 3.2 Compiling and executing a COBOL program 

OBTAINING The CRT is the primary output device of the TRS-80. It is ideal in many in- 

HARD COPY stances, but does not produce a permanent copy of the output. Very often it 

is necessary to obtain printed reports (hard copy) in lieu of, or in addition 

to, the terminal output. This is accomplished through the PRINT utility 

program. 

Note, however, that the FORMS command must be issued before using 
PRINT. The FORMS utility is invoked simply by typing FORMS, and the 
utility will prompt the user to align paper prior to actual printing. Once 
FORMS has been executed successfully, the programmer can obtain hard 
copy of any file, by the command, PRINT filename /extension; for example, 
PRINT FIRSTTRY/LST. 



DIR AND KILL 
COMMANDS 



Any diskette is apt to contain many files, some of which we want to keep 
permanently and some of which are of temporary value. The command DIR 
lists every file on a diskette with its date of creation. Enter the command, 
DIR, and observe what happens. If more files exist than can be seen on a 
single screen, hit the HOLD key to stop the display. (HOLD must be hit a 
second time for the directory to continue.) 

Very often, we will observe the presence of several files with the same 
name, but different extensions; e.g.: 



FIRSTTRY/CBL - the COBOL source program 

FIRSTTRY/COB - the object module 

FIRSTTRY/LST - compiler listing 

FIRSTTRY/TXT - output produced by executing the program FIRSTTRY/COB 
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FIRSTTRY/COB and FIRSTTRY/LST resulted from compilation of 
the COBOL source program, FIRSTTRY/CBL. FIRSTTRY/TXT is the out- 
put file produced by execution of the object progreun, FIRSTTRY/COB. 
(Check the SELECT statement of line 240 in Figure 3.1.) FIRSTTRY/CBL, 
and possibly FIRSTTRY/COB, are likely to be of permanent vahie, whereas 
the other files are not needed after printing. They may be deleted from the 
diskette through the KILL command, for example; 

KILL FIRSTTRY/LST 

The system will prompt with a message DELETE FIRSTTRY/LST 
(Y/N)?, verifying that we want to eliminate the file. Note well that once a 
file is deleted, it is gone forever. (The PURGE command will attempt to 
delete every file on a diskette, and will prompt the user accordingly. It is 
quite useful, especially after a long session on the machine.) 



THE SOURCE All COBOL programs are created and modified through the program editor, 
PROG RAM CEBIT. CEBIT is a powerful tool and typical of editors on other computers. 
EDITOR - CEDIT It is included on the COBOL diskette and is entered simply by typing CEBIT 
(after the message TRSDOS REABY appears). 

When called, the CEBIT program will announce itself, then end with a 
prompting character, > asking the user to input a command. Essentially, 
there are three modes of operation in CEDIT. These are: 

INSERT To create a COBOL program and/or 
to enter additional lines in an exist- 
ing program. This mode is entered 
by typing I after the prompt char- 
acter (>). 
COMMANB Enables the user to employ a vari- 
ety of commands which include 
the ability to : delete an existing 
line or lines (B), find a particular 
character string (F), print one or 
more lines in the program (P), write 
a permanent copy of the program 
(W), replace an existing line (R), 
and enter the Insert (I) or Edit (E) 
modes. 
EBIT Allows complex editing of a single 
line as opposed to the command 
mode which looks at many lines 
within the program. The Edit Mode 
has several subcommands, which 
among other things, allow one to 
insert, replace, or delete characters 
within a single line. 

Table 3.3 summarizes the Command Mode and is followed by a sample 
session, illustrating these commands. It must be emphasized, however, that 
this discussion is only an introduction to CEBIT. The reader is referred to 
the TRS-80 Model II (III) COBOL User's Guide for complete coverage. 



TABLE 3.3 

SUMMARY OF CEDIT COMMAND MODE 



A — Automatic renumbering to avoid line collisions in the I or R commands. 

B — Displays the first (beginning) line on the Model 1 1 , but the bottom {last) line on the Model III 

(This is one of the few differences between Model 1 1 and III editing commands) . 
C — Unconditional replacement (change) of one character string with another. 

C/OLD/NEW/ (Replaces the first occurrence of OLD with NEW) 

C/OLD/NEW/3 (Replaces the next three occurrences of OLD with NEW) 

C/OLD// (Replaces the next occurrence of OLD with nothing; i.e., it effec- 

tively deletes OLD from the line) 
D ~ Deletes a line or lines. 

D 100 (Deletes line 100) 

D 100:200 (Deletes lines 100 through 200) 

D 5:* (Deletes line 5 through end of program) 

E — Enters Edit Mode. 
F — Finds a character string. Upon completion, the current line is set to the line of the last find. 

F/STRIIMG/ (Finds the first occurrence of STRING) 

F/STRING/* (Finds all occurrences of STRING) 

I — Enters the Insert Mode (to Escape, press either ESC or Break Keys). 

i 100, 1 (Begins inserting at line 100 with increments of 1) 

L- Loads a CBL Source File 

L PAYROLL (Brings in the file PAYROLL/CBL as a work file) 

N — Renumbers lines in the text. 

N 100, 20 (Renumbers all lines beginning at line 100 in increments of 20) 

P — Prints the specified line or lines (if LINE-RANGE is omitted, the next 20 lines are printed). 

P 500 (Prints line 500) 

P 100:200 (Prints lines 100 to 200) 

P 200:* (Prints line 200 to end of program) 

P (Prints the next 20 lines) 

Q - Quits CEDIT and returns to TRSDOS. 

R — Replaces specified line and continues in Insert Mode (to exit insert Mode, hit either ESC or 
Break Keys). 
R 100 (Prompts user to replace line 100) 

S — Accepts a TRSDOS command and returns to CEDIT. 

S DIR (Displays directory of a diskette) 

T — Displays the top line of a file (Model III only) 

W — Writes current text (workfile) as a permanent file with extension CBL. 

W PAYROLL (Writes the file PAYROLL/CBL to the diskette) 

X — Conditional replacement of one character string by another, i.e., change will not be made until 
user responds to prompt. 
X/OLD/NEW/ (Conditionally changes the next occurrence of OLD to NEW) 

X/OLD/NEW/3 (Conditionally changes the next three occurrences of OLD to NEW) 

X/OLD// (Conditionally removes the next occurrence of OLD) 



A Sample Session 

Figure 3.3 represents an initial (and rather poor) attempt at creating the 
pledge of allegiance. The many errors in Figure 3.3 are corrected in the ses- 
sion of Figure 3.4. 

The editor is entered from the operating system through the CEDIT 
command. (All user responses are underlined; the system messages are not.) 
Next, the PLEDGE file is loaded into memory through the L command. Cor- 
rections may be entered in any order, and we begin by deleting line 110. The 
C (Change) command unconditionally changes the first occurrence of 
"AREMICA" to "AMERICA" and indicates the line in which the correction 
is made. 
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• Line numbers 

-Line duplicated ,|Vlisspelling 

100100' / I PLEDGE ALLEGIANCE TO/IHE Fl AG OF 



00110 
00120 



THE UNITED SrALES OF |AREI1ICA| . AND TO 
HE UNITED S'lATES OF AREMICAi AND TO 



00130 fTHi:--REPUBLI(51 FOR WHICH II STANDS, ONI 



00140 LIEJE/RTY AND JUSTICE FOR ALL. 



Space missing 

FIGURE 3.3 Pledge of Allegiance (with errors) 



Line missing-nation 
under God, .... 



We attempt to insert a space between "THE" and "REPUBLIC" with 
the X (conditional change) command, which finds the first occurrence of 
"THE" in line 120. Since this is not the desired change, we cancel it and 
rephrase the X command to change "THER" to "THE R". This time it goes 
through as intended. This is an excellent example to illustrate the advantage 
of the conditional (X) over the unconditional (C) change command. The user 



TRSDOS Message 

Invokes CEDIT 



I TRSDOS READY I 
I CEP I T \ - '~~ 

rnl.ij ! Cmiiip j 1<vi E'.j i 1 01 V-s'i 



Reach- 
-' I.,.. PL,EDGE 
00019'! Te::t 
0437P9 Menror- 



-CEDIT Prompting character 



Pl C/ARENICA/ANERlCA/ 

000120 THE UNITED fSFAlFS i )F AMER[CA> AND 10 
.' X/TI-IE/rilE / 
000120 THE UNITED STATES OF AMERICA- AND TO 
(; 1 1 a n 9 e ? N 



-User responses are underlined 



: iX/THER/THE R/ 
000130 THFREPUEUIC FOR WHKTI IT STANDS, ONE 



-X command produces 



000130 THE REPUBLIC FOR WHICH IT STANDS- ONE a prompt before 
. I J j'i change is made 

000135 NATION, UNDER GOD; INDIVISIBLE, MII H 
No Rnorn E?.el.u)<;-sri I inss 
: p. 

000100 1 Pt EDGE ALLEGIANCE TO THE FLAG OF 

' N100-5 
A 1 1 L i r 1 4' ; R e ■ r 1 1 1 rn b e ( «■ li 

'E 

000100 I PI EDGE ALLEGIANCE TO THE Fl AG OF 
00010':i I HE UNTIED S 1A1 ES OF AMERICA, AND TO 
000110 THE REPUBl I( FOR WHICH IT STANDS, ONE 
00011"! NAflON, UNDER GOD, INDI VI SIBI .E- WITH 
000120 L.IBERTY AND JUSTICE FOR ALL.. 

> \4 MEWriLE 

.rjTjllJ — ^Exit from CEDIT 

"trsdos ready 



FIGURE 3.4 Sample session 
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is well advised to proceed with caution when substituting one character 
string for another. 

The I (Insert) command is executed to add line 135, with the system re- 
sponding NO ROOM BETWEEN LINES after the insertion. Recall that the 
default increment is 10, and hence no additional lines can be inserted before 
line 140. The problem can be circumvented by specifying a smaller incre- 
ment, e.g., I 135, 1 or by the A (automatic renumbering) command. 

The B (Beginning) command returns to the first line in the file and dis- 
plays same to the user. (Note well that on the Model III, B denotes bottom 
rather than beginning. The T command prints the top line.) The N (Renum- 
ber) command renumbers all lines from 100, in increments of 5. The P 
(Print) command displays the file, W writes a new file to the disk, and Q 
(Quit) ends the session, returning control to the operating system. 

It is suggested that the reader use the Source Program Editor and at- 
tempt to recreate the session of Figure 3.4. Enter CEDIT after the message 
TRSDOS READY appears. Create the file of Figure 3.3 through the INSERT 
command, 1 100. Then follow Figure 3.4 exactly as it appears in the text. 



CREATING A 
COBOL PROGRAM 



A COBOL program is created by using CEDIT. It is critical, however, that 
various COBOL entries go in predetermined columns, as indicated by Table 
3.4. CEDIT is quite helpful in insuring that the proper columns are used. 

The insert mode automatically creates COBOL sequence numbers in 
columns 1 through 6, and positions the cursor in column 7. The TAB key 
spaces to column 8 (the A margin). Pressing TAB a second time positions 
the cursor to column 12 (the B margin). Every additional TAB will space 
four columns; i.e., to column 16, 20, 24, etc. 



TABLE 3.4 

COLUMN REQUIREMENTS FOR COBOL CODING 



Columns 



Description 



1-6 COBOL sequence numbers which are automaticallv created by CEDIT. 

7 Used to indicate comments and for continuation of non-numeric literals. A comment 

may appear anywhere in a COBOL program and is indicated by an * in column 7. 
Comments appear on the source listing, but are otherwise ignored by the compiler. 
Their use is encouraged to facilitate program documentation. Column 7 is also used to 
indicate continuation of non-numeric literals, and to control pagination of a source list- 
ing as explained in Chapter 7. 
8-1 1 Known as the A margin. Division headers, section headers, paragraph names, FDs, 01s, 

and 77-level entries all begin in the A margin. 
12-72 Known as the B margin. All remaining entries begin in or past column 12. COBOL per- 

mits considerable flexibility here, but individual installations have their own require- 
ments. (See guidelines in Chapter 7.) 
73-80 Program identification. A second optional field that is ignored by the compiler. Different 

installations have different standards, but the author suggests you omit these columns. 



CREATING 
A DATA FILE 



Unfortunately, CEDIT cannot be used to create a data file. The reader may 
wish to review Chapter 2 and/or Figure 3.2, with regard to the relationship 
between a program and the data on which it operates. 

Figure 3.5 is the COBOL program which created the file, FIRSTTRY/ 
DAT, the input to the program of Figure 3.1. The logic in Figure 3.5 is 
straightforward and should pose no problem in understanding. Realize that 
the file FIRSTTRY/DAT exists only after Figure 3.5 has been compiled and 



:jb) 




4/18/81 11 
OPTION LIST: 



, AB.53 PAGE 
T L=l 



11 
12 

13 
14 
15 
16 
17 
18 
19 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



Filename on diskette and PROGRAM-ID match 
for convenience in identifying programs 

Compiler statement number 



ID. 



■-■80. 
-80. 
CEDIT line number 



^0000 
>0000 

>0006 
:>000A 
>000E 
>001A 
>001E 
>002A 
>002E 
>003A 
;003E 
>004A 
■004E 
>005A 
>005E 
>006A 
>006E 
;007A 
>007E 
>008A 
>00BE 
>009A 
;-00A0 



000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
(300400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560, 
11.1TL 



FILE-CONTROL. 

SELECT EMPLOYEE-F-ILE 



lASSIGN TO OUTPUT "FIRSTTRY/DAT" . 



\ 



DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IB EMf^-RECORD. 

01 EI1P-REC0F?D PIC X(80). 



PROCEDURE DIVISION. 
MAINLINE. 

OPEN OUTPUT EMPLOYEE-FILE. 

MOVE SPACES TO EMP-RECORD. 

MOVE "JOHN DOE 

WRITE EMP-RECORD. 

MOVE "PEGGY WILCOX 

WRITE EMP-RECORD. 

MOVE "JOHN SMITH 

WRITE EMP-RECORD. 

MOVE "SHEILA LEVINE 

WRITE EMP-RECORD. 

MOVE "MARSHAL CRAWFORD 

WRITE EMP-RECORD. 

MOVE 



Output of this program is input to program in Figure 3.1 




TANLEY STEAMER! 
WRITt/ EMP-RECORD. 
MO 

WR/TE/ EMP-RECORD. 
M(?VJZ " D I CK PE RSN I CKET Y 
TE EMP-RECORD. 
VE "MARION MILGROM 
RITE EMP-RECORD. 
CLOSE EMPLOYEE-FILE. 
STOP RUN. 



ANALYST 35 
PR0GRAMMER31 
PR0GRAMMER24 
PR0GRAMMER29 
MANAGER 33 
PR0GRAMMER22 
PR0GRAMMER26 
PROGRAMER 28 
JR. PROG 24 



END PROGRAM. 



23000" TO EMP-RECORD. 

19000" TO EMP-RECORD. 

15000" TO EMP-RECORD. 

19000" TO EMP-RECORD. 

28000" TO EMP-RECORD. 

39000" TO EMP-RECORD. 

12000" TO EMP-RECORD. 

19000" TO EMP RECORD. 

10000" TO EMP-RECORD. 

*** END OF FILE *** 



-Employee records as they will appear in data file 

FIGURE 3.5 Program to create data file 



executed. Further, any changes to the data file require that the program of 
Figure 3.5 be modified, recompiled, and re-executed. 

Figure 3.5 contains two sets of statement numbers. The left-most col- 
umn contains the compUer statement number which need not be the same as 
the CEDIT line number; e.g., compiler statement 10 corresponds to CEDIT 
line 190. Note well that all CEDIT references must be to the CEDIT line 
number. 



SUMMARY This is one of the longest, but most important, chapters in the entire book. 
It dealt with the TRS-80 rather than COBOL, because knowledge of the 
language, in and of itself, is insufficient to enable one to function as a pro- 
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grammer. It is also necessary to know specifics of the machine that one is 
using to obtain working programs. 

The chapter opened with the definition of a compiler, and by con- 
trasting machine and higher level languages. Specifics of corripiling and exe- 
cuting a COBOL program were covered. The TRS-80 Disk Operating System, 
TRSDOS, wasintroducedas was the COBOL Source Program Editor, CEDIT. 
The procedure for creating a COBOL program was presented, with attention 
to COBOL coding requirements in specific columns. A distinction was drawn 
between a COBOL program and the data on which it operates. 

TRUE/FALSE 

1. RSCOBOL and RUNCOBOL are equivalent commands. 

2. CBL is the extension for a source program. 

3. A cross-reference listing is always provided with a COBOL compile. 

4. The command X/PRT/PRINT/ always changes PRT to PRINT. 

5. The command C/PRT/PRINT/10 changes PRT to PRINT in line 10. 

6. The command RSCOBOL PAYROLL L produces the files PAYROLL/COB and 
PAYROLL/LST. 

7. The command P 100:300 prints 20 lines. 

8. Statement numbers can never be changed. 

9. A COBOL program is required to create a data file. 

10. The utility COBOLPRT is used to print a COBOL listing. 

EXERCISES 

1. Indicate the starting column (or columns) for each of the following: 

(a) Division headers 

(b) Comments 

(c) Paragraph names 

(d) Statements in the Procedure Division, except paragraph names 

(e) WORKING-STORAGE SECTION 

(f) 77-level entries 

(g) 01-level entries 
(h) 05-level entries 
(i) PICTURE clauses 
(j) OPEN statement 
(k) WRITE statement 

(1) SOURCE-COMPUTER 
(m) SELECT statement 

2. Match each item with its proper description 

(1) A margin 

(2) B margin 

(3) Comment 

(4) IDENTIFICATION DIVISION 

(5) PROCEDURE DIVISION 

(6) Hyphen 

(7) Non-numeric literal 

(8) Reserved word 

(9) Compiler 

(10) Literal 



(a) Denoted by an asterisk in column 7 

(b) First line in any COBOL program 

(c) Often appears in data names 

(d) Columns 12 through 72 
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(e) Contains the logic of a program 

(f) Limited to 120 characters and enclosed in quotes 

(g) Where division, section, and paragraph headers begin 

(h) Translates problem oriented language to machine oriented language 

(i) Preassigned meaning 

( j) A constant; may be numeric or non-numeric 

3. Given the folloviring sequence of machine language instructions, 



LOAD 


500 


MULTIPLY 


600 


STORE 


700 



complete the following table of memory contents: 









Before 




Memory Contents 


After 




Instruction 


500 


600 


700 


ACC 


500 


600 


700 


ACC 


LOAD 

MULTIPLY 

STORE 


500 
600 
700 


10 
? 

? 


20 
? 

7 


7 
7 
7 


7 
? 
7 


7 
7 
7 


7 

? 
? 


7 
? 

? 


7 
? 
7 



4. Assume that our hypothetical computer also has a machine language ADD instruction 
in addition to the LOAD, MULTIPLY, and STORE instructions described in the text. 
Specifically, "ADD X" will add the contents of location X to the contents of the ac- 
cumulator and leave the sum in the accumulator. Show the series of machine language 
instructions which would probably be generated for the COBOL instruction "ADD A, 
B, C GIVING D". Assume A, B, C, and D are in locations 100, 200, 300, and 400, 
respectively. 

5. Indicate the CEDIT instructions which are necessary to modify the program of Figure 
3.5. Specifically: 

(a) Delete Marshal Crawford. 

(b) Insert David Brown, a programmer earning $18,000, and 26 years old. 

(c) Change Marion Milgrom's age to 33 from 24. 

6. Figure 3.6 contains an initial attempt at creating the Preamble to the United States 
Constitution. Indicate the necessary CEDIT instructions to correct all errors. 



/Duplicate lines 



/People missing 



/Space missing 



001C30 



WE 



THE OF THE UNITEDSTATES) IN ORDER TO 



-Wrong word 



001 10 RORM A MORE PE RFE CT [o"n .1 0N| rl?5TAiu: SH JUSTICE. INSURE 



00120 
00121 
00130 



DOMESTIC TRANQUILITY, PROVIDE FOR THE COMMON DEFENSE- 
DOMESTIC rRANQUILITY, PROVIDE FOR THE COMMON DEFENSE. 



] PROMOTE THE GENERAL WELFARE. AND SECURE THE BLESSINGS 



00140 OF LIBtfRTY TO OURSELVES AND OUR POSTERITY. DO ORDAIN 




00150 AND EBTABLl^gSH THIS CONSTITUTION FOR THE UNITEDBTATEB 
' Extra space 



"Space missing 



■■Last line missing-should be "of America" 

FIGURE 3.6 Preamble text 
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PROJECTS 

1. Develop a flowchart (or pseudocode) and a corresponding COBOL program for the 
EAST-WEST telephone company (serving 400 residents on an unknovsm island in the mid- 
Pacific). The object of the program is to process a customer file and indicate the payment 
due from each resident. (Residents come into the telephone office and pay their bill in 
person.) If column 42 of an incoming record contains an X, it means the customer is re- 
tired and pays only $2.00. All others pay $5.00. Incoming records are in the following 
format: 



Field 


Columns 


Picture 


LAST-NAME 


1-15 


X(15) 


FIRST-NAME 


16-30 


X(15) 


POST-OFFICE-BOX 


31-34 


9(4) 


TELEPHONE-NUMBER 


36-40 


9(5) 


RETIRED-INDICATOR 


42 


X 



The printed output should contain all five fields from the input record in columns 2 to 
16, 18 to 32, 41 to 44, 56 to 60, and 65, respectively. In addition, it should print the 
amount due in columns 70 to 74. In order to test your program, it will be necessary to 
create a separate data file; use the following test data: 



MERKLE 


RICHARD 


0135 00025 


OBRIEN 


ROBERT 


0625 00321 


MERKLE 


OLIVE 


0330 00250 X 


BLAKELY 


BRIAN 


0279 00639 


KESSEL 


SILVIA 


0217 00433 


SLY 


CAREY 


0934 00372 


KARVAZY 


KAREN 


0666 00218 X 


CRAWFORD 


STACY 


0555 00319 X 


CRAWFORD 


AMY 


0567 00417 



2. Develop pseudocode (or a flowchart) and a corresponding COBOL program for 
the Inter-City Piano Company. The program is to process a file of customers and produce 
a list of people eUgible for a discount on buying a piano. Individuals with more than 15 
lessons that have not already purchased a piano are eligible and should appear on the out- 
put. Individuals with 15 or fewer lessons or individuals who have already purchased a 
piano are not eligible. The format of the input records is as follows: 



Field 


Columns 


Picture 


LAST-NAME 


1-15 


X(15) 


FIRST -NAME 


16-25 


X(10) 


ADDRESS 


26-50 


X(25) 


CITY 


51-75 


X(25) 


NUMBER-OF-LESSONS 


76-78 


9(3) 


PURCHASE-INDICATOR* 


80 


X 


*Note: Y means already purchased. 






N means not purchased. 







The output print positions are 2 to 16, 18 to 27, 29 to 53, 55 to 79, 81 to 83, and 86 for 
the six incoming fields. No additional data need appear in the output, but remember only 
those customers eligible for a discount are to appear. Use the following test data and 
create a separate data file: 
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CRAWFORD SHERRY 15004 GOOD MEADOW CT. 

KARVAZY KAREN P.O. BOX 1013 

MORSE KENNETH 1 1800 SILENT VALLEY LN. 

PLUMETREE MICHELE 14717 PEBBLE HILL RD. 

SLY MATTHEW 15001 GOOD MEADOW CT. 

POWERS NANCY 525 ORCHARD WAY 

BLAKELY KRISTEN 15005 ORCHARD WAY 

BROWN JENNIFER 1 1 HEATHER DRIVE 

TARTLETON KIMBERLY BOX 395 



GAITHERSBURG Oil N 

GAITHERSBURG 017 Y 

GAITHERSBURG 014 N 

GAITHERSBURG 027 N 

GAITHERSBURG 019 N 

SILVER SPRINGS 024 Y 

SILVER SPRINGS 008 Y 

COLORADO SPRINGS 021 N 

NORTH LAPLATA 004 N 




THE COBOL 
LANGUAGE 



OVERVIEW This chapter begins a formal treatment of COBOL by considering in order 
each of the four divisions. Emphasis, however, is on the Data and Procedure 
Divisions, which form the bull< of any COBOL program. 

The material on the Identification and Environment Divisions is brief, 
but sufficient for elementary programs. Coverage of the Data Division begins 
with level numbers and picture clauses, and progresses to the File and 
Working-Storage Sections. The discussion on the Procedure Division includes 
verbs for I/O (OPEN, CLOSE, READ, and WRITE), for performing arithmetic 
(ADD, SUBTRACT, MULTIPLY, DIVIDE, and COMPUTE), for implement- 
ing decisions and looping (IF and PERFORM), for transferring and editing 
data (MOVE), and finally for terminating a program (STOP RUN). 

This unit contains a wealth of material. However, in keeping with the 
philosophy of the author (quick entry into actual programming), many of the 
discussions are kept brief. This chapter contains only necessary information 
for expanding on the programs of Chapters 1 and 2. Lengthy discussions are 
distinctly avoided. We could, for example, have devoted several pages to the 
IF and PERFORM verbs alone. We opted not to, in favor of encouraging 
quicker entry into actual programming. 

We conclude with a complete COBOL program incorporating the major 
points of information. The program and associated discussion are extremely 
important. Accordingly, we suggest that as you read a section, skip over to 
the program and see how the material is applied. Again, do not be dismayed 
if you fail to remember everything on a first reading; rather, regard this 
unit as reference material to which you will continually return. Remember, 
the major portion of your learning will take place as you write your own 
programs. 



COBOL NOTATION 



COBOL is an English-like language in that there are a number of different 
but equally acceptable ways to say the same thing. Accordingly, a standard 
notation is used to concisely describe permissible COBOL formats. The nota- 
tion takes a while to get used to, but once learned it permits the reader to 
quickly understand the syntax of any COBOL statement. The notation has 
six rules: 

1. COBOL reserved words appear in uppercase (capital) letters. 

2. Reserved words that are required are underlined; optional reserved 
words are not underlined. 

3. Lowercase words denote programmer-supplied information. 

4. Brackets ( [ ] ) indicate optional information, 

5. Braces {{ }) indicate that one of the enclosed items must be chosen. 

6. Three periods (...) mean that the last syntactical unit can be repeated 
an arbitrary number of times. 

As illustration, variations in the IF statement are conveniently expressed 
through this notation. Consider: 



IF 



identif ier-1 1 



iteral-1 



IS[ N0T ] GREATER THAN 
IS [NOT] LESS THAN 
IS [NOT] EQUAL TO 



II 



identif ier-21 



literal-2 
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Notice that the word IF is underlined and in uppercase letters; thus IF 
is a required reserved word. The first set of braces means that either a literal 
or identifier must appear; both are in lowercase letters, indicating that they 
are programmer supplied. The next set of braces forces a choice among one 
of three relationships: greater than, less than, or equal to. In each case, IS 
appears in capital letters but is not underlined; hence its use is optional. 
Brackets denote NOT as an optional entry. THAN is an optional reserved 
word, which may be added to improve legibility. Finally, a choice must be 
made between literal-2 or identifier-2. 

Returning to the programmer selection problem of Chapter 2, in which 
we compared EMPLOYEE-TITLE to the literal "programmer", all the fol- 
lowing are acceptable: 

IF EMPLOYEE-TITLE IS EQUAL TO "PROGRAMMER" . . . 

IF EMPLOYEE-TITLE EQUAL "PROGRAMMER" . . . 

IF "PROGRAMMER" IS EQUAL TO EMPLOYEE-TITLE . . . 

This notation will be used throughout the chapter, and indeed through- 
out the book, to explain various COBOL elements. 



IDENTIFICATION The Identification Division is the first of the four divisions in a COBOL pro- 
DIVISION gram. Its function is to provide identifying information about the program, 
such as author, date written, security, and the like. The division consists of 
a division header and up to five paragraphs, as shown: 

IDENTIFICATION DIVISION . 

PROGRAM -ID. program name. 

[ AUT HOR. comment-entry.] 

[ INSTALLATION . comment -entry.] 

[ DATE-WRITTEN . comment -entry.] 

[ SECURITY . comment-entry.] 

Only the division header and PROGRAM-ID paragraph are required. 
(Note how brackets enclose the other paragraphs as per the COBOL nota- 
tion.) Hence, the remaining paragraphs are optional and contain documen- 
tation about the program. (The DATE-COMPILED paragraph, which is 
supported on other compilers, is not available under TRS-80 COBOL.) A 
completed Identification Division is shown: 

IDENTIFICATION DIVISION. 
PROGRAM-ID. TUITION. 
AUTHOR. ROBERT GRAUER. 

INSTALLATION. TANDY CORPORATION. 
DATE-WRITTEN. SEPTEMBER 1 , 1983. 
SECURITY. TOP SECRET. 

Coding for the Identification Division follows the general rules de- 
scribed in Chapter 3. The division header and paragraph names begin in the 
A margin. All other entries begin in or past column 12 (B margin). 



ENVIRONMENT 
DIVISION 



The Environment Division serves two functions: 

1. It identifies the computer to be used for compiling and executing 
the program (usually one and the same). This is done in the Config- 
uration Section. 

2. It relates programmer chosen filenames to data files on a diskette. 
This is done in the Input-Output Section. 

The nature of these functions makes the Environment Division heavily 
dependent on the computer on which one is working. Thus, the Environ- 
ment Division for a COBOL program on the TRS-80 is significantly different 
from that of a program for another computer. 

The Configuration Section has the format: 

CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

The section header and paragraph names begin in the A margin. The 
computer -name entries begin in or past column 12. 

The Input-Output Section relates the files known to the COBOL pro- 
gram to the data files. Each file in a COBOL program has its own SELECT 
and ASSIGN clauses, which appear in the File-Control paragraph of the 
Input-Output Section of the Environment Division. The format of the AS- 
SIGN clause is machine dependent, with the following entries typical for the 
TRS-80: 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT EMPLOYEE-FILE ASSIGN TO INPUT "PAYROLL/DAT". 

SELECT PRINT-FILE ASSIGN TO PRINT "PAYROLL/TXT". 

EMPLOYEE-FILE is a programmer chosen file name and will ap- 
pear elsewhere in the program (e.g., in FD, OPEN, CLOSE, and READ 
statements). It is designated as an input file, and exists on a diskette as 
PAYROLL/DAT. In similar fashion, PRINT-FILE is also a programmer 
chosen file name for a print (output) file which will exist on a diskette as 
PAYROLL/TXT. 



DATA DIVISION 



The Data Division describes all data names in a program as to: the number of 
characters, the type (for example, numeric or alphabetic), and, finally, the 
relationship among data items. This description of data is accomplished 
through the picture clause and level numbers. 

Picture Clause 

All data names are described according to size and class. Size specifies the 
number of characters in a field. Class denotes the type of field. For the 
present, we restrict type to alphabetic, numeric, or alphanumeric denoted 
by A, 9, or X, respectively. The size of a field is indicated by the number 
of times the A, 9, or X is repeated. Thus a data name with a picture of 
A AAA or A(4) is a four-position alphabetic field. In similar fashion, 999 and 
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X(5) denote a three-position numeric field and five-position alphanumeric 
field, respectively. 

Level Numbers 

Data items in COBOL are classified as either elementary or group items. A 
group item is one that can be further divided, whereas an elementary item 
CEinnot be further divided. Elementary items always have a picture clause, 
whereas group items never have a picture clause. 

Level numbers are used to describe the hierarchy between group and 
elementary items. A level number of 01 indicates an entire record, whereas 
levels 02 through 49 are used for portions of a record. 

Level numbers and picture clauses are best described by example. Con- 
sider the Data Division statements of Figure 4.1. 

01 



EMPLOYEE-RECORD, 




05 


EMPLOYEE-NAME. 






10 LAST-NAME 


PICTURE ISX(15). 




10 FIRST-NAME 


PICTURE ISX(9). 




10 MIDDLE-INITIAL 


PICTURE ISX. 


05 


EMPLOYEE-TITLE 


PICTURE ISXdO). 


05 


DATE-OF-BIRTH. 






10 BIRTH-MONTH 


PICTURE IS 99. 




10 BIRTH-YEAR 


PICTURE IS 99. 


05 


PRESENT-SALARY 


PICTURE IS 9(5). 


05 


FILLER 


PICTURE ISX(4). 


05 


FORMER-SALARY 


PICTURE IS 99999. 



FIGURE 4.1 Data Division code for level numbers and PICTURE clause 

EMPLOYEE-NAME is considered a group item since it is divided into 
three fields: LAST-NAME, FIRST-NAME, and MIDDLE-INITIAL. LAST- 
NAME, FIRST-NAME, and MIDDLE-INITIAL are elementary items since 
they are not further divided. EMPLOYEE-TITLE is an elementary item. 
DATE-OF-BIRTH is a group item divided into two elementary items, BIRTH- 
MONTH and BIRTH-YEAR. PRESENT-SALARY and FORMER-SALARY 
are both elementary items. 

In Figure 4.1, EMPLOYEE-RECORD has a level number of 01. 
EMPLOYEE-NAME is a subfield of EMPLOYEE-RECORD, and hence it 
has a higher level number (05). LAST-NAME, FIRST-NAME, and MIDDLE- 
INITIAL are subfields of EMPLOYEE-NAME, and all have the level number 
10. EMPLOYEE-TITLE, DATE-OF-BIRTH, PRESENT-SALARY, and 
FORMER-SALARY are also subfields of EMPLOYEE-RECORD and have 
the same level number as EMPLOYEE-NAME (05). DATE-OF-BIRTH in 
turn is subdivided into two elementary items, each with level number 10. 
Realize that elementary items have a numerically higher level number than 
the group item to which they belong. 

Each elementary item must have a picture clause to describe the data it 
contains. LAST-NAME has PICTURE IS X(15), denoting a 15-position al- 
phanumeric field. However, there is no picture entry for EMPLOYEE-NAME 
since that is a group item. Parentheses in a picture entry denote repetition; 
thus, the entries of 9(5) and 99999 for PRESENT-SALARY and FORMER- 
SALARY both depict five-position numeric fields. Finally, note the FILLER 
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entry of PICTURE IS X(4). FILLER denotes a field with no useful informa- 
tion, that is, data that are not referenced in this program. 

Considerable flexibility is permitted with level numbers and picture 
clauses. Any level number from 02 through 49 is permitted in describing sub- 
fields as long as the basic rules are followed. Thus, 04 and 08 could be used 
in lieu of 05 and 10. Next, the picture clause itself can assume any one of 
four forms, PICTURE IS, PICTURE, PIC IS, or PIC. Finally, parentheses 
may be used to signal repetition of a picture type; A(3) is equivalent to 
AAA. Figure 4.2 is an alternate way of coding Figure 4.1, with emphasis on 
this flexibihty. 



01 EM 


PLOYEE-RECORD. 




04 


EMPLOYEE-NAME. 






08 LAST-NAME 


PICXdB). 




08 FIRST-NAME 


PICXO). 




08 MIDDLE-INITIAL 


PICX. 


04 


EMPLOYEE-TITLE 


PICX(IO). 


04 


DATE-OF-BIRTH. 






08 BIRTH-MONTH 


PIC 9(2). 




08 BIRTH-YEAR 


PIC 9(2). 


04 


PRESENT-SALARY 


PIC 99999. 


04 


FILLER 


PICXXXX. 


04 


FORMER-SALARY 


PIC 99999. 



FIGURE 4.2 Data Division code for level numbers and PICTURE clauses/ll 

File Section 

The File Section is typically the first section in the Data Division. It de- 
scribes every file mentioned in a SELECT statement in the Environment 
Division. (If, however, there are no input/output files as in the program of 
Chapter 1, there is no need for the File Section.) 

The File Section contains both file description (FD) and record de- 
scription entries (that is, level numbers and picture clauses). We have already 
discussed the latter. An abbreviated format for the file description (FD) 
entry is as follows: 

FD file-name 

J RECORDS ARE|^ ( OMITTED \ 
i^^^— (RECORD IS j ( STANDARD f 

[ RECORD CONTAINS integer-1 CHARACTERS] 

[DATA RECORD IS data-name-1 ] 

The FD provides information about the physical characteristics of a 
file. The RECORD CONTAINS clause specifies the number of characters per 
record and should equal the sum of the picture clauses in the record descrip- 
tion. The LABEL RECORDS clause indicates whether or not labels (i.e., pre- 
defined identifying information) exist for the file in question. 

Worlcing-Storage Section 

The Working-Storage Section is used for storing intermediate results and/or 
constants needed by the program. It defines data names used by the program 
that are not defined elsewhere; i.e., in the File Section. Working-Storage 
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typically contains two types of entries. The first is for independent, ele- 
mentary items; that is, those data names that have no hierarchical relation- 
ship to one another. These entries are assigned level number 77 and precede 
all other entries in Working-Storage. Group items beginning with level 01 
are the second type of entry appearing in Working-Storage. Group items fol- 
low 77-level entries and use level numbers as discussed earlier. An example 
of a Working-Storage Section appears in Figure 4.3, which introduces the 
VALUE clause. 



WORKING-STORAGE SECTION. 
77 WS-DATA-REMAINS-SWITCH 

01 



01 



HEADING-LINE. 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 



COMPANY-TOTALS. 
05 CO-REG-PAY 
05 CO-OVERTIIVIE-PAY 
05 CO-GROSS-PAY 



PICXO) 


VALUE SPACES. 


PICX(8) 


VALUE SPACES. 


PICX(4) 


VALUE "NAME". 


PICXO) 


VALUE SPACES. 


PICX(4) 


VALUE "RATE". 


PICX(4) 


VALUE SPACES. 


PICXO) 


VALUE "REG HOURS 


PICX(4) 


VALUE SPACES. 


PICXO) 


VALUE "0/T HOURS" 


PICX(4) 


VALUE SPACES. 


PICX(7) 


VALUE "REG PAY". 


PICX(4) 


VALUE SPACES. 


PICX(7) 


VALUE "0/T PAY". 


PICX(4) 


VALUE SPACES. 


PICXO) 


VALUE "GROSS PAY" 


PIC X (46) 


VALUE SPACES. 


PIC 9(6) 


VALUE ZEROS. 


PIC 9(6) 


VALUE ZEROS. 


PIC 9(6) 


VALUE ZEROS. 



FIGURE 4.3 Working-Storage section 



Value Clause 

The VALUE clause is a convenient way of initializing a data name. It has the 
general form : 

VALUE IS literal 



Literals are of three types, numeric (for example, 30) non-numeric 
("NAME"), and figurative constants (ZERO). Numeric and non-numeric 
literals were discussed in Chapter 2 as basic COBOL elements. Figurative 
constants are COBOL reserved words with preassigned values. Two of these, 
ZERO (equivalent forms are ZEROS and ZEROES) and SPACE (also 
SPACES), appear in Figure 4.3. 

The Working-Storage Section of Figure 4.3 is extracted from the pro- 
gram at the end of the chapter. The exact nature of the various entries in 
Figure 4.3 will be better understood at that time. 



PROCEDURE 
DIVISION 



The Procedure Division is the portion of a COBOL program that contains its 
logic; it is the part of the program that "actually does something." Coverage 
begins with the arithmetic verbs (ADD, SUBTRACT, MULTIPLY, DIVIDE, 
and COMPUTE). We look at the READ, WRITE, OPEN, and CLOSE verbs 
for use in I/O operations. We study the MOVE verb, which transfers data 
from one area of memory to another. We learn basic forms of the IF and 
PERFORM statements and cover STOP RUN, to terminate execution. AH of 
these verbs have a variety of options. This chapter, however, uses only the 
more elementary formats and defers additional coverage to later chapters. 



ADD 



The ADD verb has two basic formats: 



ADD 



[ identifier-liridentifier- 
lliteral-1 iLliteral-2 



"]■ 



. TO identifier-n 



and 



(identifier-H (identifier-2j ridentifier-3"l 
n H ...Giv 
literal-1 ) lliteral-2 JUiteral-S J 



ING identifier-n 



Note that one or several identifiers (literals) may precede identifier-n. 
Regardless of which format is chosen, i.e., GIVING or TO, only the value 
of identifier-n is changed. In the "TO" option, the values of identifier-1 , 
identifier-2, etc., are added to the initial contents of identifier-n. In the 
"GIVING" option, the sum does not include the initial value of identifier-n. 
Simply stated, the "TO" option includes the initial value of identifier-n in 
the final sum, while the "GIVING" option ignores the initial value. Exam- 
ples 4.1 and 4.2 illustrate both formats. 

Example 4.1 



ADDA BTOC. 

Before execution; A 
After execution: A 



5 


B 
B 


10 


c 
c 


20 








5 


10 


35 



In Example 4.1 the initial values of A, B, and C are 5, 10, and 20, re- 
spectively. After execution the values are 5, 10, and 35. The instruction took 
the initial value of A (5), added the initial value of B (10), added the initial 
value of C (20), and put the sum (35) back into C. 



Example 4.2 

ADDA B GIVING C. 

Before execution: A 
After execution: A 



5 


B 

B 


10 


C 
C 


20 








5 


10 


15 



In Example 4.2 the initial value of A (5) is added to the initial value of 
B (10), and the sum (15) replaces the initial value of C. 
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TABLE 4.1 

THEADD INSTRUCTION 



Data name 


A 


B 


c 


Value before execution 


5 


10 


30 


Value after execution of 








ADD A TO C. 


5 


10 


35 


ADDA BTO C. 


5 


10 


45 


ADDA 18 8 GIVING C. 


5 


10 


33 


ADDA 18BT0C. 


5 


10 


63 


ADD 1 TO C. 


5 


10 


31 



Table 4.1 contains additional examples of the ADD instruction. In each 
instance, the instruction is assumed to operate on the initial values of A, B, 
and C (5, 10, and 30, respectively). Note that only the value of C changes. 

SUBTRACT 

The SUBTRACT verb also has two formats: 



„, ,___ . „_ fidentif ier-1l ridentifier-21 

SUBTRACT J U , . . FROM identlfler-m 
lliteral-1 J Lnteral-2 J 

_, ,„-P„.„T. ridentifler-1|ridentifler-21 ^„„., (Identlfler-m) 
SUBTRAC T \ \\ ...FROM] V GIVING id 
Uiteral-1 Hliteral-2 J lliteral-m j 



entifler-n 



In the first format, the initial value of identifier-m is replaced by the 
result of the subtraction. In the second format, the initial value of either 
identifier-m or literal-m is unchanged as the result is stored in identifier-n. 
Regardless of which option is used, the value of only one data name is 
changed. Consider examples 4.3 and 4.4. 

Example 4.3 



SUBTRACT A FROM B. 

Before execution: A 
After execution: A 



5 


B 


15 






5 


B 


10 



In Example 4.3 the SUBTRACT verb causes the value of A (5) to be 
subtracted from the initial value of B (15) and the result (10) to be stored 
in B. Only the value of B was changed. 



Example 4.4 

SUBTRACT A FROM B GIVING C. 


B 

B 




C 
C 




Before execution: A 5 


15 


100 








After execution: A 5 


15 


10 



In the "FROM . . . GIVING" format of Example 4.4 the value of A (5) 
is subtracted from the value of B (15), and the result (10) is placed in C. The 
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TABLE 4.2 

THE SUBTRACT INSTRUCTION 



Data name 


A 


B 


C 


D 


Value before execution 


5 


10 


30 


100 


Value after execution of 










SUBTRACT A FROM C. 


5 


10 


25 


100 


SUBTRACT A B FROM C. 


5 


10 


15 


100 


SUBTRACT A B FROM C GIVING D. 


5 


10 


30 


15 


SUBTRACT 10 FROM C. 


5 


10 


20 


100 



values of A and B are unchanged, and the initial value of C (100) is replaced 
by 10. Table 4.2 contains additional examples. In each example, the instruc- 
tion is assumed to operate on the initial contents of A, B, and C. 

MULTIPLY 

The MULTIPLY format is shown below: 

{identifier-H f identifier-2J 
\ BY\ \ GIVING identifier-3] 
literal-1 ) lliteral-2 J 

The use of GIVING is optional. If it is used, then the result of the 
multiplication is stored in identifier-3. If GIVING is omitted, then the result 
is stored in identifier-2. Either way, the value of only one data name is 
changed. Consider Examples 4.5 and 4.6. 

Example 4.5 

MULTIPLY A BY B. 

Before execution: A 
After execution: A 
Example 4.6 

MULTIPLY A BY B GIVING C. 
Before execution: A 
After execution: A 



1 10 


B 
B 


20 






10 


200 1 



10 


6 

B 


20 


C 
C 


345 








10 


20 


200 



Table 4.3 contains additional examples of the MULTIPLY verb. 

DIVIDE 

The DIVIDE verb has two formats: 



fidentifier-l) 
DIVIDER } INTO identlfier-2 
I literal-1 / 



ridentifier-1WMSIT0Widentifier-2> 
tliteral-1 MbY Aliteral-2 I 



GIVING identifler-3 



50 



TABLE 4.3 

THE MULTIPLY INSTRUCTION 



Data name 


A 


B 


C 


Value before execution 


5 


10 


30 


Value after execution of 








MULTIPLY B BY A GIVING C. 


5 


10 


50 


MULTIPLY A BY B GIVING C. 


5 


10 


50 


MULTIPLY A BY B. 


5 


50 


30 


MULTIPLY B BY A. 


50 


10 


30 


MULTIPLY A BY 3 GIVING C. 


5 


10 


15 



In the first format the quotient replaces the initial value of identifier-2. 
In the second format, the quotient replaces the initial value of identifier-3. 
In either case, the value of only one data name is changed. Consider Ex- 
amples 4.7 and 4.8. 

Example 4.7 



DIVIDE A INTO B. 

Before execution: A 
After execution: A 



10 


8 


50 








10 


B 


5 



Example 4.8 



DIVIDE A INTO B GIVING C. 
Before execution: A 
After execution: A 



10 


B 
B 


50 


C 


13 








10 


50 


5 



In Example 4.7 the initial value of B (50) is divided by the value of A 
(10), and the quotient (5) replaces the initial value of B. In Example 4.8, 
which uses the "GIVING" option, the quotient goes into C and the values 
of A and B are unaffected. 

Table 4.4 contains additional examples of the DIVIDE verb. 



TABLE 4.4 

THE DIVIDE INSTRUCTION 



Data name 


A 


B 


c 


Value before execution 


5 


10 


30 


Value after execution of 








DIVIDE 2 INTO B. 


5 


5 


30 


DIVIDE 2 INTO B GIVING C. 


5 


10 


5 


DIVIDE B BY 5 GIVING A. 


2 


10 


30 


DIVIDE B INTO C. 


5 


10 


3 


DIVIDE A INTO B GIVING C. 


5 


10 


2 
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Chapter 4 

COMPUTE 

Any operation which can be done in an ADD, SUBTRACT, MULTIPLY, or 
DIVIDE statement may also be done using the COMPUTE instruction. In 
addition, the COMPUTE statement can combine different arithmetic opera- 
tions in the same statement. For example, consider the following algebraic 
statement: X = 2(A + B)/C. A and B are first added together, the sum is 
multiplied by 2, and the product is divided by C. The single algebraic state- 
ment requires three COBOL arithmetic statements as shown. (Note that the 
true value of X is not obtained until after the last statement is executed.) 

ADDA B GIVING X. 
MULTIPLY 2 BY X. 
DIVIDE C INTO X. 

The previous statements can be combined into a single COMPUTE with 
obvious benefits: 

COMPUTE X = 2 * (A + B) / C. 

The general format of the COMPUTE statement is 

COMPUTE ldentifier-1 = expression 

Expressions are formed according to the following rules : 

1. The symbols +, -, *, and / denote addition, subtraction, multipHca- 
tion, and division, respectively. (Note well that exponentiation is 
not supported under TRS-80 COBOL.) 

2. An expression consists of data names, literals, arithmetic symbols, 
and parentheses. Spaces must precede and follow arithmetic symbols. 

3. Parentheses are used to clarify and in some cases alter the sequence 
of operations within a COMPUTE. Anything contained within the 
parentheses must also be a valid expression. The left parenthesis is 
preceded by a space, and the right parenthesis is followed by a space. 

The COMPUTE statement calculates the value on the right side of the 
equal sign and stores it in the data name to the left of the equal sign. Ex- 
pressions are evaluated as follows : 

1. Anything contained in parentheses is evaluated first as a separate 
expression. 



TABLE 4.5 

THE COMPUTE INSTRUCTION 



Data name 




A 


B 


C 


Comments 


Value before execution 




2 


3 


10 


Initial values 


Value after execution of 












COMPUTE C = A + B. 




2 


3 


5 


Simple addition 


COMPUTE C = A + B * 


2. 


2 


3 


8 


Multiplication done 
before addition 


COMPUTE C= (A + B) 


*2. 


2 


3 


10 


Parentheses evaluated first 
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2. Within the expression multiplication or division is done before ad- 
dition or subtraction. 

3. If rule 2 results in a tie, e.g., both addition and subtraction are pres- 
ent, then evaluation proceeds from left to right. 

Table 4.5 contains examples to illustrate the formation and evaluation 
of expressions in a COMPUTE statement. 

Table 4.6 should further clarify evaluation of the COBOL COMPUTE. 
This table contains several algebraic expressions and the corresponding COM- 
PUTE statements to accomplish the intended logic. Note that parentheses 
are often required in the COMPUTE which are not present in the algebraic 
counterpart. Parentheses may also be optionally used to clarify the intent of 
a COMPUTE statement; however, their use in Table 4.6 is mandatory in all 
instances. 

TABLE 4.6 

THE COMPUTE INSTRUCTION CONTINUED 



Algebraic Expression 


COBOL COMPUTE 


X = a + b 


COIVIPUTEX = A + B. 


a + b 


COMPUTE X = (A + B) / 2. 


2 


{a + b)c 


COMPUTE X = (A + B) * C / 2. 


2 


a + b 


COMPUTE X = (A + B) / (2 * C). 


2c 


READ 




The format for the READ verb 


is: 


READ file 


-name [AT END imperative-statement] 



As an example, consider: 

READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 

This statement causes a record to be read into memory. If, however, the 
end of file condition is reached (there are no more records), control passes to 
the statement following AT END, which moves "NO" to the data name WS- 
DATA-REMAINS-SWITCH. 

WRITE 

An abbreviated format of the WRITE verb is: 



WRITE record-name 



AFTER 1 (integer LINESn 

rZZrr^J ADVANCING {„ ^^ W 

BEFORE) (PAGE /J 



The WRITE statement transfers data from main storage to an output 
device. The ADVANCING option controls line spacing on a printer; if 
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omitted, single spacing occurs. If AFTER ADVANCING 3 LINES is used, 
the printer triple spaces (skips two lines and writes on the third). Output can 
be directed to a new page by specifying AFTER ADVANCING PAGE. The 
BEFORE option causes the line to be written first, after which the specified 
number of lines are skipped. 

Note that the WRITE statement contains a record name, whereas the 
READ statement contains a file name. The record name in the WRITE will 
appear as an 01 entry in the File Section of the Data Division. The file name 
under which it is defined will appear in SELECT, FD, OPEN, and CLOSE 
statements. 



OPEN 

Every file in a COBOL program must be opened before it can be accessed. 
The OPEN verb causes the operating system to initiate action to make a file 
available for processing. 

The format of the OPEN is: 

I INPUT \ 

file-name-1 [,file-name-2 . . .] > 
OUTPUT I 

Notice that one must specify the type of file in an OPEN statement. IN- 
PUT is used for a file that contains data, whereas OUTPUT is used for a file 
produced by a program; e.g., a printed report. 

Two files may be opened in the same statement. For example, 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 



CLOSE 

All files must be closed before processing terminates. The format of the 
CLOSE is simply: 

CLOSE file-name-1 [,flle-name-2] ... 

Several files may be closed in the same statement. The type of file 
(INPUT or OUTPUT) is not specified. An example of a CLOSE statement 
follows: 

CLOSE EMPLOYEE-FILE PRINT-FILE. 



MOVE 

The MOVE statement transfers data from one storage location to another. 
The format is: 



(identifier-ll 
} TO identlfier-2 
literal I 

Consider the examples: 
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MOVE 10000 TO STARTING-SALARY. 

MOVE "SALARY REPORT FOR PROGRAMMERS UNDER 30" TO PRINT-LINE. 

MOVE EMP-NAME TO PRINT-NAME. 

The first example moves a numeric literal, 10000, to the data name 
STARTING-SALARY. The second moves a nonnumeric literal to PRINT- 
LINE. The third example transfers data from an input area to an output 
area for subsequent printing. 

The figurative constants, ZEROS and SPACES, are frequently used in a 
MOVE, as shown: 

MOVE SPACES TO PRINT-LINE. 
MOVE ZEROS TO TOTAL-SALARIES. 

The first statement moves spaces (blanks) to the data name PRINT- 
LINE. (Failure to clear a print-line in this fashion would result in the print- 
ing of any "garbage" that happened to be in these positions.) The second 
statement moves a numeric zero to TOTAL-SALARIES. 

Although the MOVE statement appears rather elementary, care must be 
taken in its use. Certain moves, for example, are not permitted. One may not 
move a numeric field to an alphabetic field or vice versa. The MOVE state- 
ment may, however, contain fields of different lengths, e.g., a field with pic- 
ture 9(3) moved to a field with picture 9(4) or a picture of X(6) moved to a 
picture of X(5), and so on. 

Two additional rules are required, therefore, to clarify the action of the 
move: 

1. Data moved from an alphanumeric area to an alphanumeric area 
are moved one character at a time from left to right. If the receiving 
field is larger than the sending field, it is padded on the right with 
blanks; if the receiving field is smaller than the sending field, the 
rightmost characters are truncated. 

2. A numeric field moved to a numeric field is always aligned according 
to the decimal point. If the receiving field is smaller than the sending 
field, the high-order positions are truncated. 

These rules are illustrated in Table 4.7. 







TABLE 4.7 

1 LLUSTRATION OF THE MOVE STATEMENT 








Source Field 


> 




Receiving Field 






PICTURE 


CONTENTS 


PICTURE CONTENTS 












X(5) 
X(4) 
X(6) 
9(5) 
9(4) 
9(6) 








X(5) 


1 A |B 


C| D 


E| 


1 A JB |C 


D 


E 1 












X(5I 


1 A |B 


C|D 


E| 


1 A |b |C 


D 














X(5) 


A |b 


C| D 


e| 


ABC 


D 


E 












9(5) 


1 1 |2 


3| 4 


5{ 


1 1 1 2| 3 


4 


5 ! 












9<5) 


1 1 1 2 


3| 4 


5| 


1 2 j 3 |4 


5 














9(5) 


1 1 1 2 


3| 4 


5{ 


1 1 1 1 2 


3 


4 |5| 
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Editing Numeric Data 



One of the major uses of the MOVE statement is in the editing of numeric 
data. Incoming data are not allowed to contain decimal points, dollar signs, 
commas, or any other special characters. Printed reports, however, must 
contain these symbols to be of any use at all. The conversion is accomphshed 
through editing. Consider the two entries for FIELD-A and FIELD-A- 
EDITED: 

05 FIELD-A PIC9V99. 

05 FIELD-A-EDITED PIC 9.99. 

FIELD-A is a three-digit numeric field, with two digits after the decimal 
point. The V in its picture clause indicates an implied (or assumed) decimal 
point. FIELD-A-EDITED is a four-position edit field containing an actual 
decimal point. In a COBOL program, all calculations would be done using 
FIELD-A. Then, just prior to printing, FIELD-A is moved to FIELD-A- 
EDITED, and the latter field is printed. For example. 

Before MOVE: 



FIELD-A 7 8 3 FIELD-A-EDITED ? 



After execution of MOVE FIELD-A TO FIELD-A-EDITED: 

FIELD-A |7 I 8 |3l FIELD-A-EDITED |Tj . [8 |3| 

The decimal point takes an actual position in FIELD-A-EDITED, but 
does not occupy a position in FIELD-A, as it (the decimal point) is only 
implied. Although there are many editing symbols in COBOL, we discuss 
only the dollar sign, comma, and decimal point in this chapter and defer 
additional material to Chapter 8. 

The appearance of a single $ causes a dollar sign to print in the indi- 
cated position. Consider: 

05 FIELD-B PIC9(3)V99. 

05 FIELD-B-EDITED PIC$9(3).99. 

Before MOVE: 

V 



FIELD-B 6 5 4 3 2 FIELD-B-EDITED $???.?? 



After execution of MOVE FIELD-B TO FIELD-B-EDITED: 



FIELD-B 6 5 4 3 2 



FIELD-B-EDITED $ 654.32 



Notice that the dollar sign and decimal point both take up a position in 
FIELD-B-EDITED. 
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It is also possible to obtain a floating dollar sign by using multiple dol- 
lar signs in the edited field. In this instance a single $ prints immediately to 
the left of the most significant digit. Thus 



05 FIELD-C 

05 FIELD-C-EDITED 



PIC9(3)V99. 
PIC $$$$.99. 



Before MOVE: 



V 



FIELD-C 1 2 3 



FIELD-C-EDITED 



$$$$.?? 



After execution of MOVE FIELD-C TO FIELD-C-EDITED: 

V 



FIELD-C 









1 


2 


3 



FIELD-C-EDITED 







$ 


1 




2 


3 



A single dollar sign prints immediately before the left-most digit in the 
field. FIELD-C-EDITED is a seven-position field, but the first two positions 
hold blanks. 

The presence of a comma as an editing symbol causes a comma to print 
if it is preceded by a significant digit. If, however, a comma is preceded only 
by zeros, then it is suppressed. Consider 



05 FIELD-D 

05 FIELD-D-EDITED 



PIC9(4). 
PIC $$,$$9. 



Before MOVE: 



FIELD-D 8 7 6 5 FIELD-D-EDITED $ $ , 



After execution of MOVE FIELD-D TO FIELD-D-EDITED: 



FIELD-D 8 7 6 5 



FIELD-D-EDITED $8,765 



The comma prints in the indicated position. Suppose, however, that the 
contents of FIELD-D were 0087 instead of 8765. Now FIELD-D-EDITED 
would be: 

Before MOVE: 



FIELD-D 8 7 



FIELD-D-EDITED $$,$$? 



$87 



After execution o/MOVE FIELD-D TO FIELD-D-EDITED: 

FIELD-D I I I 8 |T] FIELD-D-EDITED 

Notice that the dollar sign floats and that the comma is suppressed. 
Note also that all numeric moves are accomplished so that decimal alignment 
is maintained with truncation or addition of insignificant zeros. Information 
on editing is summarized in Table 4.8. 



TABLE 4.8 

USE OF EDITING SYMBOLS 



Source Field 


Receiving Field 


PICTURE 


CONTENTS 


PICTURE 


CONTENTS 


9(4) 


0678 


9(4) 


0678 


9(4) 


0678 


$9(4) 


$0678 


9(4) 


0678 


$$$$$ 


_$678 


9(4)V99 


1 23456 


9(4). 99 


1234.56 


9(4)V99 


1 23456 


$9(4) .99 


$1234.56 


9(4)V99 


1 23456 


$9,999.99 


$1 ,234.56 


9(4) 


0008 


tp,iPs>Sp 


$8 


9(4)V9 


12345 


9(4) 


1234 


9(4)V9 


12345 


9(4) .99 


1234.50 


99V99 


1234 


$ZZZ9 


$ 12 



IF 

The IF statement is used to implement a decision. For the present, our con- 
cern is only a few of the available options, and additional discussion is de- 
ferred to Chapter 6. The format of the IF is: 

[F condition statement-1 [ ELSE statennent-2] . 

The condition portion of the IF involves the comparison of two quanti- 
ties. The syntax for specifying the condition was discussed in the COBOL 
notation section at the beginning of this chapter. As can be seen from the 
square brackets enclosing the ELSE clause, the IF statement may be used 
with or without the ELSE option. 

Note well that either the word ELSE or a period terminates statement- 
1; that is, statement-1 (or for that matter statement-2) can contain several 
verbs. Consider: 

IF TITLE = "PROGRAMMER" 
/MOVE SPACES TO PRINT-LINE 

MOVE EMP~NAME TO PRINT-NAME 

MOVE EMP-AGE TO PRINT-AGE 

MOVE EMP-SALARY TO PRINT-SALARY 
V WRITE PRINT-LINEq 




Will be executed 
collectively or not at all 



Single period terminates IF 



If the condition is met, that is, if TITLE = "PROGRAMMER", then 
four distinct MOVEs and one WRITE will be executed. In other words, it is 
the presence of the period that signifies the end of the IF. We return to this 
most important verb in Chapter 6. 

PERFORM 

The PERFORM verb is the primary means of implementing a loop. We dis- 
cuss a simplified format in this section and defer additional material until 
Chapter 6 . An abbreviated format is 

PERFORM paragraph-name [UNTIL condition] 



58 



The COBOL Language 59 

The PERFORM statement causes a portion of code to be executed. 
It transfers control to the paragraph specified, continues execution from that 
point until another paragraph is encountered, and then returns control to the 
statement immediately following the PERFORM statement. If the UNTIL 
clause is specified, the condition in the UNTIL clause is tested prior to any 
transfer of control. The performed paragraph is executed until the condition 
is met. In other words, when the condition is satisfied, the perform is fin- 
ished, and control passes to the statement following the PERFORM. If, how- 
ever, the condition is not satisfied, control is transferred to the designated 
paragraph. 

Looping is accomplished by using the UNTIL clause, specifying a con- 
dition, and modifying that condition during execution of the performed 
paragraph. Consider: 

77 END-OF-FILE-SWITCH PIC X(2) VALUE SPACES. 



PERFORM READ-A-RECORD 

UNTIL END-OF-FILE-SWITCH = "NO" 



READ-A-RECORD. 



READ EMPLOYEE-FILE 

AT END MOVE "NO" TO END-OF-FILE-SWITCH. 

The paragraph READ-A-RECORD is performed untU END-OF-FILE- 
SWITCH equals "NO", that is, until there are no more records. When the 
end of file is reached, the END-OF-FILE-SWITCH is set to NO. This causes 
the next test of the UNTIL condition to be met and prevents the READ-A- 
RECORD paragraph from further execution. Use of this technique to pro- 
cess a file also requires an initial read, as was shown in the programmer 
selection problem (Figure 2.5). 

STOP RUN 

Every program must contain at least one STOP RUN statement. When STOP 
RUN is encountered, execution of the COBOL program terminates and con- 
trol passes back to the operating system. 

It is important to realize that STOP RUN need not be the last physical 
statement in the Procedure Division. (It wasn't in Figure 2.5.) Rather, 
STOP RUN is said to indicate the logical end of the program, that is, the 
place where the programmer wants the job to end. 

SUMMARY Chapters 1 and 2 began with almost immediate presentation of complete 
COBOL programs. The objective at that time was to remove the aura sur- 
rounding computer programming and to give the reader an intuitive feel for 
COBOL. This chapter formalized the COBOL presentation and introduced 
several new statements. Now we are ready to tie the material together and 
develop a more involved COBOL program. Specifications are as follows: 

1. Develop a payroll program that will process a file of employee rec- 
ords and produce a printed report. The latter is to contain an ap- 
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propriate heading at the beginning of the report, a detail line for 
every employee record, and a total line at the end. 
2. Incoming records are formatted as follows: 



Field 


Positions 


Picture 


Employee Last Name 


1-15 


X(15) 


Employee First Name 


16-25 


X(10) 


Regular hours worked 


26,27 


99 


Overtime hours worked 


28,29 


99 


Hourly Rate 


30-33 


99V99 



3. Processing specifications for each employee require calculation of 
regular, overtime, and gross pay. Regular pay is simply regular 
hours worked times the hourly rate; overtime pay is equal to over- 
time hours times the hourly rate times 1.5; gross pay is the sum of 
regular and overtime pay. 

4. Company totals are required for regular, overtime, and gross pay. 

The completed program is shown in Figure 4.4. Test data are shown in 
Figure 4.5 and the corresponding report in Figure 4.6. There are two SE- 
LECT statements in the COBOL program (lines 210-240). The first SELECT 
specifies that EMPLOYEE-FILE is to come from the data file, PAYROLL/ 
DAT). The second SELECT statement shows that PRINT-FI LE is written to 
the file PAYROLL/TXT. Realize, however, that PAYROLL/TXT will not 
exist on the diskette until after the program of Figure 4.4 compiles and exe- 
cutes. (The user can obtain "hard copy" through the PRINT utility as ex- 
plained in Chapter 3.) 



000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 



IDENTIFICATION DIVISION. 
PROGRAM- ID. PAYROLL. 
AUTHOR. R SRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT EMPLOYEE-FILE ^ 

ASSIGN TO INPUT |" PAYROLL/DAT" .| 
SELECT PRINT-FILE 

ASSIGN TO PRINT |" PAYROLL/TXT" .| 



Input File as it exists on a diskette (See Figure 4.5) 



Output File as it exists on a diskette (See Figure 4.6) 



DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE OMITTED 

RECORD CONTAINS 80 CHARACTERS 

DATA RECORD IS EMPLOYEE-RECORD. 
01 EMPLOYEE-RECORD. Only elementary items have picture clause 

05 EMP-NAME. / 



10 
10 



EMP-LAST-NAME 
EMP-FIRBT-NAME 



PIC X(15). 
PIC X(10). 



FIGURE 4.4 Payroll program 



000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 



05 



05 
05 



EMP-HOURS-WORKED. 

10 EMP-REG-HOURB PIC 99. 

10 EMP-OVERTIHE-HOURS PIC 99., 

lEMP-RATE PIC 99V9971 



'Implied decimal point 



FILLER 



PIC X(47). 



FD PRINT-FILE 

LABEL RECORDS ARE STANDARD ^ 
I RECORD CONTAINS 132 CHARACTERS] 
DATA RECORD IB PRINT-LINE. 



^A printer typically contains 132 print positions 



01 PRINT-LINE 

W0RKIN5-ST0RASE SECTION. 
77 WS-DATA-REMAINS-SWITCH 

01 IND~COMPUTATIONS. 

05 IND-RE6ULAR-PAY 
05 IND-OVERTIME-PAY 
05 IND-GROSS-PAY 

01 COMPANY-TOTALS. 



01 



PIC X(132). 



PIC X(3) 



PIC 9(4)V99. 
PIC 9(4)V99. 
PIC 9(4)V99. 



VALUE SPACES. 



'Company totals are initialized to zero 



05 


CO-REGULAR-PAY 


PIC 


9<6)V99 


VALUE 


ZEROS. 


05 


CO-OVERTIME-PAY 


PIC 


9(6)V99 


VALUE 


ZEROS. 


05 


CO-GROSS-PAY 


PIC 


9<6)V99 


VALUE 


ZEROS. 



HEADING-LINE. 










05 


FILLER 


PIC 


X(S) 


VALUE 


SPACES. 


05 


FILLER 


PIC 


X(4) 


VALUE 


" NAME " . 


05 


FILLER 


PIC 


X<9) 


VALUE 


SPACES. 


05 


FILLER 


PIC 


X(4) 


VALUE 


"RATE". 


05 


FILLER 


PIC 


X(4) 


VALUE 


SPACES. 


05 


FILLER 


PIC 


X(9) 


VALUE 


"REG HOURS". 


05 


FILLER 


PIC 


X(4) 


VALUE 


SPACES. 


05 


FILLER 


PIC 


X(9) 


VALUE 


"O/T HOURS". 


05 


FILLER 


PIC 


X(4) 


VALUE 


SPACES. 


05 


FILLER 


PIC 


X(7) 


VALUE 


"REG PAY". 


05 


FILLER 


PIC 


X(4) 


VALUE 


SPACES. 


05 


FILLER 


PIC 


X(7) 


VALUE 


"O/T PAY". 


05 


FILLER 


PIC 


X(4) 


VALUE 


SPACES. 


05 


FILLER 


PIC 


X(9) 


VALUE 


"GROSS PAY". 


05 


FILLER 


PIC 


X(46) 


VALUE 


SPACES. 



DASHED-LINE. 

05 ROW~OF-DASHES 

05 FILLER 

DETAIL-LINE. 

05 FILLER 

05 DET-LAST-NAME 

05 FILLER 



^Heading line established through VALUE clauses 

PIC X(90) VALUE ALL "-". 
PIC X(42) VALUE SPACES. 



PIC X(2). 
PIC X(15). 
PIC X(2). 



1 05 PET-RATE 



PIC $**.99. 



Edit picture 



05 FILLER 

05 DET-REG-HOURS 

05 FILLER 

05 DET-OVERTIME-HOURS 

05 FILLER 

05 DET-REGULAR-PAY 

05 FILLER 

05 DET-OVERTIME-PAY 

05 FILLER 

05 DET-GROSS-PAY 

05 FILLER 

01 TOTAL-LINE. 

05 FILLER 

05 FILLER 

05 FILLER 



PIC X(8). 

PIC Z9. 

PIC X(10) . 

PIC Z9. 

PIC X(6). 

PIC $Z,ZZ9.99. 

PIC X(3). 

PIC $Z.ZZ9.99. 

PIC X(2). 

PIC $Z,ZZ9.99. 

PIC X(47). 



PIC X(6) 
PIC X(6) 
PIC X(41 ) 



VALUE SPACES. 
VALUE "TOTALS", 
VALUE SPACES. 



F I G U R E 4.4 Con tinued 
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001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 



05 TOTAL-REGULAR-PAY 

05 FILLER 

05 TOTAL-OVERT I ME-PAY 

05 FILLER 

05 TOTAL-GROSS- PAY 

05 FILLER 




PIC $Z5ZZ9.99.| 

PIC X(3) VALUE SPACES. 

PIC »Z>ZZ9.99.| 

PIC X(2) VALUE SPACES. 

PIC *Z>ZZ9.99. 

PIC X(47) VALUE SPACES. 



PROCEDURE DIVISION. 
PREPARE-PAYROLL. 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 

PERFORM WRITE-HEADING-LINE. 



Use of editing 



^Initial read 



READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WB~DATA-REMAINS-BWITCH. 



PERFORM PROCESS-RECORDS 

UNTIL WS-DATA-REMAINS-SWITCH = "NO". 
PERFORM WRITE-COMPANY-TOTALS, 
CLOSE EMPLOYEE-FILE 

PRINT-FILE. 
STOP RUN. 

/ Causes output to begin on a new page 

WRITE-HEADING-LINE. / 

UiRI TE PRINT-LINe/fROM HEA DING-LINE 

I AF T ER ADVANCING PAGE.I 
WRITE PRINT-LINE FROM DABHED-LINE 
AFTER ADVANCING 1 LINE. 

/Arithmetic Statements 
PROCESS-RECORDS. / 



MULTIPLY EMP-REG-HOURS BY EMP-RATE GIVING IND-REGULAR-PAY. 
COMPUTE IND-OVERTIME-PAY 

= EMP-OVERTIME-HOURS * EMP-RATE * 1.5. 
ADD IND-REGULAR-PAY IND-OVERTIME-PAY GIVING IND-GROSS-PAY. 



PERFORM UPDATE-COMPANY-TOTALB. 

PERFORM WRITF-DETAIL-LINE /Last statement of performed routine is another read 



READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 



UPDATE-COMPANY-TOTALS. 



ADD IND-REGULAR-PAY TO CO-REGULAR-PAY. 
ADD IND-OVERTIME-PAY TO CO-OVERTIME-PAY. 
ADD IND-GROSS-PAY TO CO-GROSS-PAY. 



'Increments company totals 



WRITE-DETAIL-LINE. 



MOVE SPACES TO DETAIL-LINE. 
MOVE EMP-LAST-NAME TO DET-LAST-NAME. 
MOVE EMP-RATE TO DET-RATE. 
MOVE EMP-REG-HOURS TO DET-REG-HOURS. 
MOVE EMP-OVERTIME-HOURS TO DET-OVERTIME-HOURS. 
MOVE IND-REGULAR-PAY TO DET-REGULAR-PAY. 
MOVE IND-OVERTIME-PAY TO DET-OVERTIME-PAY. 
MOVE IND-GROSS-PAY TO DET-GROBS-PAY. 
WRITE PRINT-LINE FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES. 



'Builds detail line 



WR I TE-COMPANY~TOTALS . 

WRITE PRINT-LINE FROM DASHED-LINE 

AFTER ADVANCING 1 LINE. 
MOVE CO-REGULAR-PAY TO TOTAL-REGULAR-PAY. 
MOVE CO-OVERTIME-PAY TO TOTAL-OVERTIME-PAY. 
MOVE CO-GROSS-PAY TO TOTAL-GROSS-PAY. 
MOVE TOTAL-LINE TO PRINT-LINE. 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 



FIGURE 4.4 Continued 
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JONES 


JOHN 


4000|0500K 


DOBBS 


JOHN 


400SB5'=i0 


BENJAMIN 


I. EE 


30000675 


MIlJiROM 


MARION 


3510085g EMP-OVERTIME-HOURS 

3!5|0EpS66 (positions 28, 29) 


TATER 


CRAIG 


SMITH 


JOHN 


4B100'500 


DOE 


JANE 


|4ia|090550 

~~~ — -EiVIP-REG-HOURS 
(positions 26, 27) 




FIGURE 4.5 Input to Figure 4.4 



The FD for EMPLOYEE-FILE describes the incoming records in ac- 
cordance with the program's specifications, and contains both group and 
elementary items. Only the latter have picture clauses. The FD for PRINT- 
FILE states that print records contain 132 positions but the format of spe- 
cific print lines is defined in Working-Storage. 

The Procedure Division contains six paragraphs. The relationship among 
these paragraphs is best seen in the hierarchy chart of Figure 4.7. PREPARE- 
PAYROLL sits on top of the hierarchy chart and drives the entire program. 
It invokes three subordinate paragraphs, WRITE-HEADING-LINE, PROCESS- 
RECORDS, and WRITE-COMPANY-TOTALS. PROCESS-RECORDS in turn 
calls two other paragraphs which are subordinate to it. 

The PREPARE-PAYROLL paragraph begins by opening the files (lines 
1 120 and 1130) and performing WRITE-HEADING-LINE. PAGE is used in 
the WRITE statement of line 1260 to cause output to begin on a new page. 
The WRITE FROM statement, lines 1270-1280, moves DASHED-LINE to 
PRINT-LINE and then writes PRINT-LINE. DASHED-LINE itself was previ- 
ously defined in Working-Storage (lines 780-800) to consist of 90 dashes 
followed by 42 spaces. Realize that all "print lines" should add to 1 32 posi- 
tions. In similar fashion, HEADING-LINE is defined in lines 610-760 and 
written in lines 1250 and 1260. 

The READ statement of lines 1 150 and 1 160 obtains the /7rsf record in 
EMPLOYEE-FILE. The paragraph PROCESS-RECORDS is performed until 
no more records remain. Note well that the last statement of that routine 



NAME 



Incoming rate was edited 

RATE / REG HOURS O/T HOURS 



- Fixed dollar sign produced by zero suppression 

?:G PAA O/T f-'AY GROSS PAY 



JONES 

DOBBS 

BENJAMIN 

MILGROM 

TATER 

SMITH 

DOE 



1*5. 


, 00| 


$5. 


,50 


*6. 


,75 


$8, 


.50 


$6. 


,66 


*S, 


.00 


$5. 


,50 



40 
40 
30 
35 
35 
40 
40 






LU 


200 . 00 


\n 


8 


$ 


220.00 


$ 





* 


202.50 


* 


10 


* 


297.50 


$ 1 


8 


* 


233. 10 


* 


10 


% 


200 . 00 


* 


9 


$ 


220.00 


$ 



0.00 * 200.00 

66.00 * 286.00 

0.00 * 202.50 

$ 127.50 * 425.00 

79.92 * 313.02 

75.00 * 275.00 



74. 



294 . 25 



TOTALS 



$1,573. 10 
FIGURE 4.6 Output from Figure 4.4 



* 1,995. 



63 





PREPARE-PAYROLL 
































WRITE-HEADING 
LINE 




PROCESS-RECORDS 




WRITE-COMPANY 
TOTALS 


































UPDATE-COMPANY 
TOTALS 




WRITE-DETAIL 
LINE 





FIGURE 4.7 Hierarchy chart for payroll program 

is another READ, in accordance witli the guidelines of Chapter 2. After 
EIVIPLOYEE-FILE is empty, totals are written, the files are closed, and pro- 
cessing terminates. 

Various arithmetic statements are used in PROCESS-RECORDS (lines 
1310~1340) and also in the routine to increment company totals (lines 
1440-1460). Note well that all arithmetic is performed on data names with 
strictly numeric pictures and implied decimal points; e.g., IND-OVERTIME- 
PAY in line 1320 with PIC9(4)V99. However, edited fields with acft/a/ deci- 
mal points are printed; e.g., DET-OVERTIME-PAY with PIC $Z,ZZ9.99 in 
line 940. The numeric field is moved to the edited field in line 1550 prior 
to writing the line. (The Z indicates zero suppression; i.e., do not print lead- 
ing zeros as they are insignificant. Use of the Z produces a "fixed" dollar 
sign as can be seen in Figure 4.6.) 

The reader should carefully examine the input data of Figure 4.5 and 
see how it is consistent with the report of Figure 4.6. 



TRUE/FALSE 

1. The PROGRAM-ID paragraph is the only required paragraph in the Identification 
Division. 

2. Both GIVING and TO may appear in the same ADD statement. 

3. All elementary items have a PICTURE clause. 

4. A data name at the 10 level may or may not have a PICTURE clause. 

5. PIC 9(3) and PICTURE IS 999 are equivalent entries. 

6. The IF statement must contain an ELSE clause. 

7. Only one statement is executed when an IF statement is true. 

8. STOP RUN is physically the last statement of every COBOL program. 

9. A file name may not appear in more than two statements in the same program. 

10. In a COMPUTE statement with no parentheses, multiplication is always done before 
addition. 



EXERCISES 

1. Complete the following table. In each instance, refer to the initial values of A, B, C, 
andD. 
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Data name 

Value before execution 

Value after execution of 
ADD 1 TO D. 
ADDA B CGIVING D. 
ADDA B CTO D, 
SUBTRACT A B FROM C. 
SUBTRACT A B FROM C GIVING D. 
MULTIPLY A BY B. 
MULTIPLY B BY A. 
DIVIDE A INTO C. 
DIVIDE CBY A GIVING B. 
DIVIDE CBY B GIVING D. 
COMPUTE D = A + B/2*D. 
COMPUTE D = (A + B) / (2 * D). 
COMPUTE D = A + B / (2 * D). 
COMPUTE D = (A + B) / 2 * D. 
COMPUTE D = A + (B / 2) * D. 



A 

4 



C 
12 



D 
1 



2. Show the value of the edited result for each of the following entries: 





Sending Field 




Receiving Field 




PICTURE 


CONTENTS 


PICTURE CONTENTS 


(a) 


9(6) 


123456 


9(6) 


(b) 


9(6) 


1 23456 


9(8) 


(c) 


9(6) 


1 23456 


9(6).99 


(d) 


9(4)V99 


1 23456 


9(6) 


(e) 


9(4)V99 


123456 


9(4) 


(f) 


9(4)V99 


1 23456 


$$$$$9.99 


(g) 


9(4)V99 


123456 


$$$,$$9.99 


(h) 


9(6) 


1 23456 


$$$$,$$9.99 



3. Given the record layout for incoming data: 



01 EMPLOYEE-RECORD. 
05 SOC-SEC-NUMBER 
EMPLOYEE-NAME. 
10 LAST-NAME 
10 FIRST-NAME 
10 MIDDLE-INIT 
FILLER 
BIRTH-DATE. 
10 BIRTH-MONTH 
10 BIRTH-DAY 
10 BIRTH-YEAR 
FILLER 

EMPLOYEE-ADDRESS. 
10 NUMBER-AND-STREET. 

15 HOUSE-NUMBER 

15 STREET-NAME 
10 CITY-STATE-ZIP. 

15 CITY 

15 STATE 

15 ZIP 



05 



05 
05 



05 
05 



PICTURE IS 9(9). 

PICTURE ISX(12). 
PICTURE ISXdO). 
PICTURE ISX. 
PICTURE ISX. 

PICTURE IS 99. 
PICTURE IS 99. 
PICTURE IS 99. 
PICTURE ISX(3). 



PICTURE ISX(6). 
PICTURE ISX(IO). 

PICTURE ISX(IO). 
PICTURE ISX(4). 
PICTURE IS 9(5). 
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Chapter 


4 


1. 


List all group items. 


li. 


List all elementary items. 


iii. 


State the columns in which the following fields are found: 




(a 


SOC-SEC-NUMBER 




(b 


EMPLOYEE-NAME 




(c 


1 LAST-NAME 




(d 


) FIRST-NAME 




(e 


) MIDDLE-INIT 




(f 


) BIRTH-DATE 




(g 


BIRTH-MONTH 




(h 


) BIRTH-DAY 




(i 


) BIRTH-YEAR 




(i 


EMPLOYEE-ADDRESS 




(k 


NUMBER-AND-STREET 




(1 


HOUSE-NUMBER 




(m 


STREET-NAME 




(n 


CITY-STATE-ZIP 




(o) 


CITY 




(P 


STATE 




(q] 


ZIP 



4. Some of these statements are invalid. Indicate those that are and state why they are 
invalid. (Assume FILE-ONE and FILE-TWO are file names, and RECORD-ONE is a 
record name.) 



(a; 

(b 
(c 
(d 
(e 
(f 

(g; 

(h 
(i 
(J 
(k 
(1 
(m 
(n 
(o 
(P 



OPEN INPUT RECORD-ONE. 

OPEN INPUT FILE-ONE OUTPUT FILE-TWO. 

OPEN INPUT FILE-ONE. 

CLOSE OUTPUT FILE-ONE. 

READ FILE-ONE. 

READ FILE-ONE AT END MOVE "YES" TO EOF-SWITCH. 

READ RECORD-ONE AT END MOVE "YES" TO EOF-SWITCH. 

WRITE RECORD-ONE. 

WRITE RECORD-ONE AFTER ADVANCING TWO LINES. 

WRITE RECORD-ONE BEFORE ADVANCING 2 LINES. 

CLOSE FILE-ONE FILE-TWO. 

WRITE FILE-ONE. 

WRITE RECORD-ONE AT END MOVE "YES" TO EOF-SWITCH. 

WRITE RECORD-ONE AFTER ADVANCING PAGE. 

WRITE RECORD-ONE AFTER 2. 

WRITE RECORD-ONE ADVANCING 3 LINES. 



5. Write COBOL COMPUTE statements to accomplish the intended logic: 

(a) X = a + b + c 

a + be 
(b)x = 



(c)x 
(d)x 



2 
ab + cd 

ef 
a + b 



PROJECTS 



1. Write a program to itemize expenses for a building contractor. Each expenditure 
appears in a separate record according to the following format: 
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Columns 



Field 



Picture 



1-8 


DATE-OF-EXPENDITURE 


X(8) 


10 


AUTHORIZATION-CODE 


X 


12-13 


ITEM-TYPE 


XX 


15-39 


ITEM-DESCRIPTION 


X(25) 


41-45 


NUMBER-ORDERED 


9(5) 


47-55 


UNIT-COST 


9(7)V99 



Print a heading line at the beginning of the report. Print a detail line for each incoming 
record that includes all incoming fields, as well as a calculated field equal to the NUMBER- 
ORDERED times the UNIT-COST. Accumulate a running total for cost, and print a total 
line at the end of processing. Use the following test data. 



06/03/83 


4 


HD 


ROOFING NAILS 15 LBS 


00006 


000000392 


07/04/83 


2 


JL 


GRAVEL-TRUCK LOAD 


00042 


000014000 


06/05/83 


4 


AA 


BATHROOM SINK-TYPE A 


00094 


000008000 


06/20/83 


2 


JL 


INDOOR LUMBER 2 X 3 X 1C 


1 02200 


000000550 


06/20/83 


2 


JL 


CEMENT 50 LB BAGS 


00320 


000001570 


07/15/83 


3 


FN 


TRUSSES 


00015 


000012345 


09/15/83 


3 


RF 


ROOF TILES 


04000 


000000250 



2. Write a program to print all shipments of furniture from a manufacturer to three 
different warehouses. A record is created every time a shipment is made, with the follow- 
ing format: 



Columns 


Field 


Picture 


1-6 


DATE-OF-SHIPMENT 


X(6) 


7-13 


ANTICIPATED-REVENUE 


9(7) 


14-15 


TYPE-OF-SHIPMENT 


XX 


16 


WAREHOUSE 


X 


23-52 


PERSON-WHO-AUTHORIZED 


X(30) 



Design and print an appropriate heading line(s). Print a detail line for each incoming 
record. Keep a total of the anticipated-revenue for each warehouse (A, B, or C) and at 
the end of the run print three total lines, one for each warehouse. Sample test data are 
provided. 



02 12830030000 A LC 
0214830070000NRC 
0219830002500NNB 
0221830044000ALC 
022883001 0700R LA 
0302830000200NCC 
0302830004600NNB 
0309830004800NRB 
0309830092000RLA 



RUSS FALLOWES 
RUSS FALLOWES 
DALEMANDRONA 
RAY DELODI 
PAULARON 
ART COOPER 
DALE MANDRONA 
DALE MANDRONA 
RAY DELODI 



OVERVIEW Very few computer programs run successfully on the first attempt. Indeed, 
the programmer is realistically expected to make errors, and an important 
"test" of a good programmer is not whether he or she makes mistakes, but 
how quickly they are detected and corrected. Since this process is such an 
integral part of programming, an entire chapter is devoted to debugging. We 
shall consider errors in both compilation and execution. 

Compilation errors occur in the translation of COBOL to machine lan- 
guage and result because the programmer has violated a rule of the COBOL 
grammar, e.g., a missing period, a misspelled word, or an entry in a wrong 
column. Execution errors result after the program has been successfully 
translated to machine language and are generally of two types: 

1. The computer was able to execute the entire program, but the cal- 
culated results are different from that which the programmer ex- 
pected or intended. 

2. The computer is unable to execute a particular instruction and 
comes to a premature end of job, e.g., division by zero or addition 
of non-numeric data. 

Execution errors of the first type may be caused by an incorrect trans- 
lation of a proper flowchart or pseudocode to the programming language, or 
by a correct translation of an incorrect flowchart. In either case, there is an 
error in logic that is generating incorrect output. We shall restrict our dis- 
cussion to compilation errors and execution errors of the first type. 



ERRORS IN 
COMPILATION 



A compilation error occurs because the COBOL syntax has not been fol- 
lowed. The compiler detects that something is amiss and responds with an 
error message. As we shall soon see, some of these messages are quite clear 
and consequently the problem is easily resolved. Others are not so precise, 
and require more time to correct. 

The COBOL compiler tends to rub salt in a wound in the sense that an 
error in one statement can cause error messages in other statements that 
appear correct. For example, should you have an error in a SELECT state- 
ment, the compiler will flag the error, ignore the SELECT statement, and 
then flag any other statement which references that file even though those 
statements are otherwise correct. 

Often simple mistakes such as omitting a statement or misspelling a re- 
served word can lead to a long and sometimes confusing set of error mes- 
sages. The only consolation is that compiler errors can disappear as quickly 
as they occur. Correction of the misspelled word or insertion of the miss- 
ing statement will often eliminate several errors at once. 

Proficiency in debugging comes with time. The more programs you 
write, the better you become. To give you a truer feel for what to expect in 
your own programs, we have taken the payroll program of Chapter 4 and de- 
liberately changed several of the statements to cause compilation errors. The 
resulting output is shown in Figure 5.1. 

As a rule, the TRS-80 compiler lists errors immediately as they occur. 
Error messages usually appear in pairs— the first indicates the nature of the 
problem and the second the point at which compilation resumes. Consider 
statement 48 in Figure 5.1 in which the data name CO REGULAR-PAY is 
flagged because of a missing hyphen. The first message under statement 48 is 
SYNTAX, followed by a second message, SCAN RESUME. Each diagnostic 
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Discussion references compiler statement numbers, not sequence numbers 

My6frl Jl COBOL (RM/COBOL 1.3B) 4/18/81 12.05.04 

f/lLE: PAYCOliP OPI'ION I [Bf: T L==l 



PAGE 



DEBUG (■■• 



'LN 



J 

4 

5 

7 
8 
9 
10 
11 
12 
1,5 
14 
15 
16 
17 
IB 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
3 '2. 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 

***** 

***** 

49 

50 



, B. 



ID. 



000100 
0001 10 
000 1 20 
000130 
000140 
000150 
000160 
000170 

000180 

000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
0002S0 
000290 
000300 
0003 1 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
0005 70 

1 ) SYNTAX 

2) SCAN RE-E 

000580 
000590 



1 DEN I I F I CAT I ON D I V 1 S [ ON . 
PROGRAM- 1 D . PAYCOMP . 
AUTHOR. R GRAUER. 

ENV I RONMENT D IV I S I ON . 
CONF I GURAT I ON BE tT I ON . 
SOURCE-COMPUTER. TRS-S0. 
OBJECT-COMPUTER. TRS- 80. 

INPUT-OUTPUT SECT ION. 
FILE -CONTROL. 

SELECT EMPLOYEE-FILE 

ASSIGN rO INPUT "PAYROLL/DAT". 
SELECT PRINT-FILE 

ASSIGN 10 PRINT " PAYCOMP/ TXT" . 

DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IB EMPLOYEE -RECORD 
01 EMPLOYEE-RECORD. 
05 EMP-NAME . 

10 EMP-L AST-NAME 
EMP- FIRST- NAME 
HOURS-WORKED. 
EMP-REG-HOURS 
EMP-OVERTIME-HOUR 



I Picture clauses sum to 79, not 80; 
flagged on page 5 of Figure 5.1 



01 



10 

EMP- 

10 

10 

EMP-RATE 

FILLER 



PR I NT -FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 132 CHARACTERS 

DATA RECORD IS PRINT- LINE. 

PRINT-LINE PIC X(132), 



PIC 


X(15). 


PIC 


X( 10) . 


PIC 


99. 


PIC 


99. 


PIC 


99V99. 


PIC 


X(46). 



WORKING-STORAGE SECTION. 
77 WS~ DATA-REMA I N3-SW I T CH 

01 IND-COMPUTATIONS. 

05 I ND-REGULAR-PAY 
05 I ND-OVERT I ME- PAY 
05 IND-6R0SB-PAY 



PIC X ( 3 ) 



VALUE SPACES. 



PIC 
PIC 
PIC 



01 COM PANY-TOTALS 




Hyphen missing 



rco REGULAR-PAY 



9(4)V99. 
9(4)V97. 
9<4)V99. 



9(6)V99 VALUE ZEROS. 



PIC 

* * 

E*B?E*E*E*E*E*E*E*E*E*E*E'fe*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
fW*/j*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W«W*W*W*W*W*W*W*W*W*W#W«W*W*W 

CO-OVERT I ME -PAY PiV 9(6.W99 VAiaJE I-'EROS. 

ICO-GROSS-PAY PIC\9(6)V99 VALUE ZEROS. 

^ 1st $ indicates where error occurred ^2nd S indicates recovery point 



rRS-80 Mnde 
SOURCE FILE 



Column 8 Column 12 

1 1 COBOl/ i RM/ COe^ 1 , 3B ) 
PAYCOMP 



I (NE DEBUG PG/LN A 




4/18/81 
OPTION I j 



1 2 . 



. 04 PAGE 
L = 1 



Column 73 



ID. 



51 


000600 






52 


000610 


01 


HEADING-LINt 


53 


000620 




05 FILLER 


54 


000630 




05 FILLER 



PIC X(8) 
PIC X(4) 



- Opening quote is missing 

. VALUE SPACES . 
VALUE NAME " . I 



FIGURE 5.1 Compilation errors 
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!<■*!< t; K 


1) LITERAL. 


VALi 


LIE 


»-E*E*E*E*E*E*E*E*E ss-E*! 


****« 


2) SCAN REH 


SUME 


*Ui 


l*W*l.J* W*W*W#W*W*W*W*W*I 


■55 


000640 




05 


FILLER 


56 


000650 




05 


FILLER 


57 


000660 




05 


FII LER 


58 


000670 




05 


FILLER 

End 


*»**# 


1 ) SYNTAX 


*E*E*E 


:*E#E*E*E*E#E*E*E*E*E*I 


59 


000680 




05 


FILLER 


* * X- « * 


I ) SCAN RSS 


;UME 


*W*W*W*W*W*W*W*W*W*W*W*I 


*■>:*-** 


1) DOUBLE DECLARATION *E*E*E*E*E*E*E«I 


***** 


2) SCAN RES 


jUME 


*W*W#W*W#W*W#W*W*W*W*W*I 


60 


000690 




05 


FILLER 


61 


000700 




05 


FILLER 


62 


0007 1 




05 


FILLER 


63 


000720 




05 


FILL-ER 


64 


000730 




05 


FILLER 


65 


000740 




05 


FILLER 


66 


000750 




05 


FILLER 


67 


000760 




05 


FILLER 


68 


000770 








69 


000 7S0 


01 


DAS 


:HED"LINE. 


70 


000790 




05 


ROW- OF~DASHES 


71 


000800 




05 


FIL-LER 


72 


000810 








73 


000820 


01 


DET 


AIL-LINE. 


74 


000830 




05 


FILLER 


75 


000840 




05 


DET -LAST -NAME 


76 


000B50 




05 


FILLER 


77 


000860 




05 


DET -RATE 




000870 




05 


FILLER 


79 


000880 




05 


DET-'REG-HOURS 


80 


000890 




05 


FILLER 


81 


000900 




05 


DET-OVERTIME -HOURS 


82 


000910 




05 


FILl ER 


83 


000920 




05 


DET-REGULAR-PAY 


84 


000930 




05 


FILLER 


35 


000940 




05 


DET-OVERT I ME-PAY 


86 


000950 




05 


FILLER 


87 


000960 




05 


DET' GROSS PAY 


88 


000970 




05 


FILLER 


89 


000980 








90 


000990 


01 


TOTAL-L INE, 


91 


001000 




05 


FILLER 


92 


00 1010 




05 


FILLER 


93 


00 1 020 




05 


FILLER 


94 


001030 




05 


TOFAL-REGULAR-PAY 


95 


001040 




05 


FILLER 



E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 

PIC y.',9) VALUE SPACES. 

PIC X(4) VALUE "RATE". 

PIC X(4) VALUE SPACES. 

PIC X<9) VALUE "REG MOURSQ 

ing quote is in column 73 and ignored by compiler--^' * 
ExTr>E*E*E*E*E*E*E»E#E#E*E«E*E*E*E*E*E*E*E*E*E 

PIC X(4) VALUE SPACES. 

* $ 

W*W*W*W*W*W*W*W*W*W«W*W*W*W*W*W*W*W*W*W*W*W*W 
E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E 

w*w*w*w*w*w*w*w*w*w*w»w*w*w«w*w*w*w*w*w*w*w*w 



PIC 


X ( 9 ) 


VALUE 


"0/T HOURS". 


PIC 


X(4) 


VALUE 


SPACES. 


P I c 


X(7) 


VALUE 


"REG PAY". 


PIC 


X(4) 


VAL-UE 


SPACES. 


PIC 


X ( 7 ) 


VALUE 


"O/T PAY". 


PIC 


X ( 4 ) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"GROSS PAY". 


PIC 


X ( 46 ) 


VALUE 


SPACES. 


PIC 


X ( 90 ) 


VALUE 


ALL "-". 


PIC 


X(42) 


VALUE 


SPACES. 


PIC 


X(2). 






PIC 


X't 15) . 






PIC 


X(2). 






PIC 


*$*.99. 






PIC 


X ( 8 ) . 






PIC 


29. 






PIC 


X ( 1 ) . 






P I c 


Z9. 






PIC 


X ( 6 ) . 






PIC 


*Z,ZZ9. 


99. 




PIC 


X ( 3 ) . 






PIC 


$Z,ZZ9. 


99. 




PIC 


X(2) . 






PIC 


■tZiZZ9. 


99. 




PIC 


X(47). 






Y 


— PICTURE and VALUE clauses are inconsistent 


PICA 


. X(6T~--^ 


^ VALUE 


SPACES. 


rpicT 


X ( 5 ) 1 


1 VALUE 
VALUE 


"TOTALS" .1 


PIC 


X ( 4 1 ) 


SPACES. 


PIC 


$Zj ZZ9. 


99. 




PIC 


X<3) 


VALUE 


SPACES. 



IRS -80 llodGl II COBOL (RM/ 
SOURCE FILE: PAYCONP 



OBOL 1 . 3B ) 



4/113/31 12.05,04 PAGE 
OPTION LIST: T L=l 



LINE DEBUG PG/LN 



ID. . 



96 

9 7 

98 

99 

100 

101 

102 

***** 
103 

***** 
104 
105 
106 
107 
108 
109 
1 10 
111 



001050 




05 


TOTAL-OVERTIME- PAY 


001060 




05 


FILJER 


001070 




05 


TOTAL- GROSS- PAY 


001080 




05 


FILLER 


00 1 090 








001100 


PRC 


iCEDURE DIVISION. 



PIC *Zi Z79.99. 

PIC X(2J VALUE SPACES. 

PIC *Z) 2Z9.99. 

PIC X(47) VALUE SPACES. 



>0000 001110 START, 



-Reserved word used incorrectly 



1) RESERVED WORD CONFLICT *E*E*E*E«E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
001120 OPEN INPUT EMPLOYEE-FILE 
* 
1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W«W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 



001130 
:000C 001140 
:000E 001150 

001160 
-0013 001170 

001180 
'Qid22 001190 
^0024 001200 



OUTPUT PRINT-FILE. 
PERFORM WRITE- HEAD I NG-L I NE . 
READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WS-DATA-REMA INS- SWITCH. 
PERFORM PROCESS-RECORDS 

UNTIL WS-DATA-REMAINB-SWrrCH == "NO", 
IPERFORM write COMPANY-TOTAL. | ~^ 
CLOSE EMPLOYEE-F I LE ^^ Flagged at bottom of page 5 



FIGURE 5.1 Continued 



PRINT FILE. 
STOP RUN. 



112 001210 

113 .0030 001220 

114 001230 

115 50032 001240 NFO TE-HEADING-LINE. 
11 



-Should be WRITE PRINT-LINE 



>0032 001250 



WRITE PRINT-FILE FROM HEADING-LINE 



***** 
117 

***** 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
12B 
129 
130 
131 

***** 
132 

***** 
***** 

133 

134 



} ) REFERENCE INVALID *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
001260 AFTER ADVANCING PAGE. 

$ 
1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W#W*W*W*W*W*W#W*W«W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
>0034 001270 WRITE PRINT-LINE FROM DA9HED-LINE 
0012S0 AFTER ADVANCING 1 LINE. 

001290 
>0044 001300 PROCESS-RECORDS. 



>0044 001310 
:.-004A 001320 

001330 
>0052 001340 

001350 
>0058 001360 

001370 
>005A 001380 

001390 
>005C 001400 



MULTIPLY EMP- RES-HOURS BY EMP-RATE GIVING IND-REGULAR-PAY. 
COMPUTE I ND -OVERTIME-PAY 

== EMP-OVERTIME- HOURS* EMP-RATE * 1.5. 
ADD IND-REGUI AR-PAY IND-OVERTIME-PAY GIVING IND-GROSS-PAY. 

PERFORM UPDATE-COMPANY-TOTALS. 

PE RFCiRM WR I TE- DETA I L-L I NE . 

Should be READ EMPLOYEE-FILE 



[read EMPLOYEE-RECORD [ --^ ' 
* 

1 ) Fll E NAME REQUIRED *E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

001410 AT END MOVE NO TO WS-DATA-REMA INS-SWITCH. 

$ $ * 

,1 ) SCAN RESUME *W*W*W*W#W*W*W*W*W*W*W*W*W*W*W*W»W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

2 ) RESERVED WORD CONFL I CT *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E#E*E*E*E*E*E 

3 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W#W*W*W*W*W*W*W*W*W*W*W»W*W*W*W*W*W*W*W«W»W 

001420 
0062 001430 UPDAie-COMPANY-TOTALS. 



TRB-SB Mod*l 11 COBOL (RM/COBOL 1 . 3E4 ) 
SOURCE FIIE: PAYCMMP 

L TNE DEBUG PG/LN A. .. B. ............ , 



4 



4/18/81 12.05.04 PAGE 
OPTION LISr: T L=l 

/Error will disappear with correction to COBOL line 48 
■ ■/■■ ..II).. 



135 
***#* 

* * * *;- -ii: 

136 
137 

***** 
***** 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 

***** 
***** 
155 
156 
157 
158 
159 
160 



^0062 0W1440 

1) IDENTIFIER 

2) SCAN RESUME 
■0064 001450 
^006A 001460 

1) IDENTIFIER 

2) SCAN RESUME 

001470 
001480 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
J00AC 001630 



ADD I ND-REGULAR-PA Y 10 CO-REGULAR-PAY . 



>006E 
S006E 
>0072 
>0076 
■007 A 
>007E 
;00e2 
>00S6 
>008A 
>008E 



>009E 
>009E 



*E»E*E*E*E*E*E*E*E*E*E-*E*E*F*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E *£*£■*£*£ 
*W*W*W*W*W«W*W*W*W«W*W*W*W*W*W*W*W*W«W*W*W*W*W*W*W*W*W*W«W*W*W*W*W*W 

ADD IND-OVERTI ME-PAY TO CO-OVERTIME-PAY. 

ADD |IND-GR05§1 TO CO-GROSS-PAY. 
* \ $ 

*E*E-sE*E*E*fe#E*E*E»E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
*W*W*W*W*W*W*^W*W*W*W#W*W*W*W*W-»W*W*W*W*W*W*W*W«W*W*W*W*W*W*W*W*W*W 

^Should be I ND-G ROSS-PAY 

WHITE -DETAIL-LINE. 

MOVE SPACES TO DETAIL-LINE. 

MOVE EMP-LAST-NAME TO DE T-LAST-NAME. 

MOVE EMP-RATE TO DET-RATE. 

MOVE EMP REG-HOURS TO DET-REG-HOURS. 

MOVE EMP-OVERTIME-HOURS TO DET-OVERTIME-HOURS. 
MOVE IND-REGULAR-PAY TO DET-REGULAR-PAY. 
MOVE IND-OVERTIME-PAY TO DET-OVERTIME-PAY. 
MOVE TND-GROSS-PAY TO DET-GROSS-PAY. 
WRITE PRINT-LINE FROM DETAIL-LINE 



AFTER ADVANCING 



LINES 



WRI 



TE-COMPANY-TOTALS. 
WRITE PRINT-LINE F ROM/DASHED-LINE 

AFTER ADVANCING/ 1 LINE. 
MC)VE I CO-REGULAR-PAY I TO 



Error will disappear with correction to COBOL line 48 



TAL-REGULAR-PAY. 



$ 



1) IDENTIFIER 

2) SCAN RESUME 
>00AE 001640 
>00B2 001650 
'■00B6 001660 
>00BA 001670 

001680 
llZlll END 



-*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E-*E*E#E-*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
*W*W*W-*W*W#W*W#W»W*W*W*W*W#W*W*W*W*W*W*W*W*W*W*W*W*W»W*W*W*W*W#W*W*W 

MOVE CO-OVERTIME-PAY TO TOTAL-OVERTIME-PAY. 

MOVE CO-GROSS-PAY TO TOTAL-GROSS-PAY. 

MOVE TOTAL -LINE TO PRINT-LINE. 

WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 

PROGRAM. **» END OF FILE *** 



FIGURE 5.1 Continued 



TRB-80 Model II COBOL (RM/ COBOL 1.3B) 
SOURCE F-'ILE: PAYCOMP 

ADDRESS SIZE DEBUG ORDER TYF'E 

/Record size is in conflict with line 21 





0/ 


1 




F I LE 




0000 


|79f 


GRP 





GROUP 




0000 


25 


GRP 





GROUP 




0000 


15 


ANS 





ALPHANUMERIC 


000F 


10 


ANS 





ALPHANUMERIC 


0019 


4 


GRP 





GROUP 




0019 


•■;■ 


NSU 





NUMERIC 


UNSIGNED 


001 B 


2 


NBU 





NUMERIC 


UNSIGNED 


00 ID 


4 



NSU 





NUMERIC 
FILE 


UNSIGNED 


0054 


132 


ANS 





ALPHANUMERIC 


00E0 


3 


ANS 





ALF'HANUMERIC 


00E4 


13 


GRP 





GROUP 




00E4 


6 


NSU 





NUMERIC 


UNSIGNED 


00EA 


6 


MSU 





NUMERIC 


UNSIGNED 


00F0 


6 


NBU 





NUMERIC 


UNSIGNED 


00F6 


24 


GRP 





GROUP 




00F6 


S 


NSU 





NUMERIC 


UNSIGNED 


00FE 


8 


NSU 





NUMERIC 


UNSIGNED 


0106 


8 


NBU 





NUMERIC 


UNSIGNED 


010E 


128 


GRP 





GROUP 




018E 


132 


GRP 





GROUP 




01 BE 


90 


ANS 





ALPHANUMERIC 


0212 


132 


GRP 





GROUP 




0214 


15 


ANS 





ALPHANUMERIC 


0225 


6 


NSE 





NUMERIC 


EDITED 


0233 


2 


NSE 





NUMERIC 


EDITED 


02:.?F 


j:;. 


NSE 





NUMERIC 


EDITED 


0247 


9 


NSE 





NUMERIC 


EDITED 


0253 


9 


NSE 





NUMERIC 


EDITED 


025 E 


9 


NSE 





NUMERIC 


EDITED 


0296 


1 3 1 


GRP 





GROUP 




02 CA 


9 


NSE 





NUMERIC 


EDITED 


02D6 


9 


NSE 





NUMERIC 


EDITED 


02E1 


9 


NSE 





NUMERIC 


EDITED 



4/18/Sl 12.05.04 PAGE 
OPTION LIST: T L=l 

NAM 
Indentation reflects group vs. elementary items 

EMPLOYEE-FILE 



EMPLOYEE- RE CORD 
EMP--NAME 

EMP- LAST-NAME 

EMP-FIRST--NAME 
EMP-HOURS-WORKED 

EMP-- REG -HOURS 

EMP-OVERTIME-HOURB 
EMP-RATE 



PRINT-FILE 
PRINT-LINE 

WB-DATA~REMAINB-BWITCH 

IND COMPUTATIONS 

IND-REGULAR-PAY 
I NO-OVERT I ME-PAY 
IND-GROSB-PAY 

COMPANY-TOTALS 
I CO \ —Construed as a data name 

CO-OVERTIME-PAY 
CO-GROSS-PAY 

HEADING-LINE 

DASHED-LINE 
ROW- -OF -DASHES 

DETAIL-LINE 

DET-LAST NAME 

DET-RATE 
DET-REG-HOURS 
DET-OVERTIME-HOURS 
DET-REGULAR-PAY 

DET-OVERTIME PAY 

DET-GROSS-PAY 

TOTAL-LINE 
TOTAL-REGULAR-PAY 
T OT AL -0 VE RT I ME -PAY 
TOTAL-GROSS-PAY 



I LLEGAL PERFORM *E*E*E*E*E*E*E*E*E*E*E»E«E*E#E*E 
FILE RECORD SIZE ERROR *E*E*E*E*E*E*E»E*E*E*E*E 
VALUE ERROR *E*E*E«E«-E*E*E*E*E*E*E*E*E*E*E«E*E*E 



WR I TE-CONPANY- TOTAL 

EMPLOYEE-FILE 

TOTAL-LINE 



-Additional error messages 



TRS-80 Mod-?! tl COBOL (RM/COB!.iL 1 . 3B ) 
SOURCE FjLE: PAYCOMP 

ADDRESS SIZE DEBUG ORDER TYPE 



4/ 18 /SI 12.05.04 PAGE 
OPTION L_IST: T L=1 

NAM 



READ ONLY BVTE SIZE = >0200 
READ/WRITE BYTE SIZE == >0398 
OVFRl AY SEGMENT BYTE SIZE = ::0000 
rOFAL BYTE SIZE = >0598 



14 ERRORS 
11 WARNINGS 



-Compilation summary 



FIGURE 5.1 Continued 



Debugging 75 

is associated with a dollar sign indicating the column in line 48 to which the 
message pertains. The compiler detected an error when it encountered the R 
in REGULAR-PAY. Realize that CO was followed by a blank, causing CO 
to be construed as a data name. The compiler expected CO to be followed 
immediately by a picture clause, but encountered REGULAR-PAY instead. 
This in turn produced a syntax error, with the dollar sign appearing under 
the R in REGULAR-PAY. 

Fortunately, the compiler does not give up completely when it encoun- 
ters a syntax error. Instead, it seeks to recover, and resumes compilation as 
soon as it recognizes another valid element. Thus, when it detects the P in 
PIC in line 48, it prints a second message, SCAN RESUME, indicating that 
compilation is continuing. Accordingly, observe the second dollar sign under 
the P in PIC in line 48. The row of W's associated with the message, SCAN 
RESUME, denotes a warning, namely, that subsequent compilation may be 
incorrect. 

With this as background, we are ready to consider the other diagnostics 
in Figure 5.1. The ensuing discussion references compiler line numbers, e.g., 
48, rather than six-digit COBOL sequence numbers, e.g., 000570. 

Line Number Explanation 

54 LITERAL VALUE-An opening quotation 

mark is missing before the literal NAME. 
Compilation resumes with the ending period. 

58 SYNTAX— A somewhat perplexing error in 
that beginning and ending quotation marks 
appear to be present. Recall, however, that 
the compiler interprets only the first 72 
columns, and that columns 73 through 80 are 
ignored. This problem occurred because the 
ending quotation mark is in column 73. This 
error is rather subtle, but no one ever said 
that programming was easy. Note, however, 
the column indicators for the A and B mar- 
gins, as well as the program ID (columns 73- 
80) at the top of each page of a compiler 
output. 

59 DOUBLE DECLARATION-Another puzzling 
error which occurred only because of the 
previous problem. Since the period in line 58 
was in column 74, that entry was never termi- 
nated. Hence, when the scan continued at the 
picture clause in line 59, the compiler thought 
it had two pictures for a single entry; hence, 
the error and DOUBLE DECLARATION 
message. 

102 RESERVED WORD CONFLICT-Recall that 

COBOL has a series of some 300 reserved 
words which can only be used in rigidly 
defined context. The error message indicates 
a reserved word conflict, meaning that START 
is unsuitable as a paragraph name (check 
Appendix B, Reserved Words). The error is 



76 Chapter 5 



eliminated by choosing another paragraph 
name, e.g., START-THE-PROGRAM. 
116 REFERENCE INVALID-In COBOL, one 

reads a file, but writes a record. PRINT-FILE 
is a file name, rather than a record name; 
hence, the error. The problem is corrected by 
specifying PRINT-LINE rather than PRINT- 
FILE. 

131 FILE NAME REQUIRED-Similar to the 
previous error, except that line 131 is a 
READ statement. The correct reference is 
EMPLOYEE-FILE, not EMPLOYEE- 
RECORD. 

132 RESERVED WORD CONFLICT-The com- 
piler resumed scanning with the word MOVE 
and immediately flagged NO as a reserved 
word conflict. (Verify that NO is indeed a 
reserved word in Appendix B.) The problem 
is eliminated by enclosing NO in quotes as 
was done in line 107. 

135, 154 IDENTIFIER-The compiler is flagging CO- 
REGULAR-PAY as an invalid identifier 
because it was never defined in the Data 
Division. We attempted to define it in line 48, 
but omitted the hyphen, and the compiler is 
not a mind reader. These errors will disappear 
with the earlier correction to line 48. 
137 IDENTIFIER-Sirailar in concept to the 
previous message in that IND-GROSS was 
never defined, although IND-GROSS-PAY 
was specified in line 45. We know the two 
data names refer to the same quantity, but 
the compiler requires identical data names 
and flags the inconsistency. 

As was stated earlier, the compiler flags most errors immediately as 
they occur. Nevertheless, it may list additional errors at the conclusion of a 
compilation following the Data Division expansion. Consider now the three 
diagnostics on the bottom of the fifth page of compiler output in Figure 5.1. 

' ILLEGAL PERFORM: WRITE-COMPANY-TOTAL 

There is nothing syntactically wrong with the PERFORM statement 
of line 110. Unfortunately, the paragraph WRITE-COMPANY-TOTAL does 
not exist and consequently the statement was flagged. Note that there is 
a paragraph, WRITE-COMPANY-TOTALS, but the compiler requires exact 
correspondence. One must be absolutely sure that paragraph names in a 
PERFORM statement match exactly the paragraph names as they appear 
elsewhere in the program. 

FILE RECORD SIZE ERROR: EMPLOYEE-FILE 

The RECORD CONTAINS clause of line 21 specified that EMPLOYEE- 
FILE will have 80-character records, but the PICTURE clauses in lines 24 



Debugging 77 

through 31 sum to 79. (Note also the 79 characters in the group item 
EMPLOYEE-RECORD on page 5 of the compilation hsting.) The problem 
is resolved by adding a byte to the FILLER entry of line 31. 

VALUE ERROR: TOTAL-LINE 

This message is rather imprecise, and indicates a problem in the defini- 
tion of the group item TOTAL-LINE (lines 90 through 99). Closer inspec- 
tion reveals a conflict in the PICTURE and VALUE clauses of line 92. The 
former specifies a five-position field, PIC X(5): the latter a six-position literal, 
TOTALS. 

The results of the compilation are summarized in the very last item of 
compiler output. This particular example had 14 errors and 11 warnings. 

A Second Example 

Let us return to the original payroll program of Chapter 4, and make one 
very slight change— the word "environment" is misspelled in line 5 of Figure 
5.2. Everything else in Figure 5.2 is identical to the original COBOL listing 
of Figure 4.4. Observe, however, the 20 errors and 19 warnings which are 
flagged in Figure 5.2. Could these 39 messages all result from a single mis- 
spelling? 

The answer in a word is yes. Since environment was misspelled in line 5, 
the SELECT statements of lines 12 through 15 are ignored because there is 
no Environment Division. This in turn causes the FD's for EMPLOYEE-FILE 
and PRINT-FILE in the Data Division to be flagged due to "missing" SE- 
LECT statements. In addition, the compiler objects to all data names which 
are defined under the "invalid" FD's, causing all Procedure Division refer- 
ences to EMP-RATE, EMP-L AST-NAME, and so on to be flagged as invalid 
identifiers. 

The point of this example is that a seemingly simple error in one state- 
ment can lead to a large number of errors in other related statements that 
disappear when the initial error is corrected. However, don't expect all errors 
you don't understand to just go away. There is always a logical explanation 
for everything a computer does, and sometimes it may take quite a while to 
find it. 

TRS-80 Model n COBOL (RM/COBOL 1.3B) 4/)P/Bl 1/. 10.06 PAGE 1 

SOURCE FILE: PAYC0MP2 OPTION LIST: T L=l 

L INE DEBUG PG/LN A. . . B. . lo. . 



1 000100 IDENTIFICATION DIVISION, 

2 000110 PROGRAM ID. PAYC0MP2. 

3 000120 AUTHOR. R GRAUER. 

4 000130 



Misspelling causes all errors 



5 000 1 40 lENVIROMENT DIVISION. ^ 

***** 1 ) SYNTAX *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*F*E*F*F 

6 000150 CONFIGURATION SECTION. 

7 000160 SOURCE-COMPUTER. TRS-30. 

8 000170 OBJECT-COMPUTER. TRS-80. 

9 000180 

10 000190 INPUT-OUTPUT SECTION. 

11 000200 FILE- CONTROL. 

12 000210 SELECT EMPLOYEE-FILE 

13 000220 ASSIGN TO INPUT "PAYROLL/DAT". 

FIGURE 5.2 COBOL listing witii environment misspelled 



14 
15 
16 
17 

***** 
18 
19 

***** 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

***** 
***** 
34 
35 
36 
37 
38 
39 

***** 
40 
41 



1) 
1) 



1) 



1) 



1) 



000230 
000240 

000250 
000260 



SELECT PRINT-FILE 
ASSIGN TO PRINT 



'PAYC0MP2/TXT" , 



-File name flagged because SELECT statement not recognized 



DATA DIVISION. 
$ 
SYNTAX *E*E*E*E*E*E*E*E#E*E*E*E*E*E*E#E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E 
SCAN RESUME *UI*W*W*W#W«UI*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W»W»W 
13013270 FILE SECTION. 

000280 |FD EMPLOYEE-FILE) "' 

* 
*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E«E*E*E«E*E*E*E*E 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE-RECORD. 
01 EMPLOYEE-RECORD. 



UNDEFINED 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 



05 EMP-NAME. 

10 EMP-LAST-NAME 
10 EMP-FIRST-NAME 

05 EMP-HOURS-WORKED. 
10 EMP-REG-HOURS 
10 EMP-OVERTIME-HOURS 

05 EMP-RATE 

05 FILLER 



PIC 
PIC 

PIC 
PIC 
PIC 
PIC 



X ( 1 5 ) . 
X(10). 

99. 
99. 

99V99. 
X(47). 



FD 



SCAN RESUME 
UNDEFINED 

000430 

000440 

000450 

000460 

000470 

000480 



01 



PRINT-FILE 
* 

*w*w*w*w*w»w*w*w#w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 

*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E#E#E*E*E*E*E*E*E*E*E»E*E*E*E*E*E*E*E 
LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IB PRINT-LINE. 
PRINT-LINE PIC X(132). 



WORKING-STORAGE SECTION. 

$ 
CAN RESUME *W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
000490 77 WS-DATA~REMAINS-SWITCH PIC X(3) VALUE SPACES. 
000500 



TRS-S0 Model 
SOURCE file: 



II COBOL 
PAYC0MP2 



<RM/ COBOL 1.3B) 



4/18/81 12.10.06 PAGE 
OPTION LIST: T L=l 



LINE DEBUG PG/LN A...B. 



ID. 



42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 



000510 01 

000520 

000530 

000540 

000550 

000560 01 

000570 

0005B0 

000590 

000600 

000610 01 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 

000710 

000720 

000730 

000740 

000750 

000760 



IND-COMPUTATIONS. 
05 IND-REGULAR-PAY 
05 IND-OVERTIME-PAY 
05 IND-GROSS-PAY 

COMPANY-TOTALS. 
05 CO-REGULAR-PAY 
05 CO-OVERT I ME- PAY 
05 CO-GROSS-PAY 

HEADING-LINE. 



PIC 9(4)V99. 
PIC 9(4)V99. 
PIC 9(4)V99. 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 


9(6)V99 


VALUE 


ZEROS. 


PIC 


9(6)V99 


VALUE 


ZEROS. 


PIC 


9(6) V99 


VALUE 


ZEROS. 


PIC 


X(8) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"NAME". 


PIC 


X(9) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"RATE". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"REG HOURS" 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"O/T HOURS" 


PIC 


X ( 4 ) 


VALUE 


SPACES. 


PIC 


X(7) 


VALUE 


"REG PAY". 


PIC 


X ( 4 ) 


VALUE 


SPACES. 


PIC 


X<7) 


VALUE 


"O/T PAY". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"GROSS PAY" 


PIC 


X(46) 


VALUE 


SPACES. 



FIGURE 5.2 Continued 



78 



68 


000770 
















69 


000780 01 


DASHED-LINE. 












70 


000790 


05 


ROW-OF-DABHES 




PIC- 


X(90) 


VALUE 


ALL "-" 


71 


000800 


05 


FILLER 




RIC 


X ( 42 ) 


VALUE 


SPACES. 


72 


000810 
















73 


000820 01 


DET 


AIL-LINE. 












74 


000830 


05 


FILLER 




PIC 


X ( 2 ) . 






75 


000840 


05 


DET -LAST -NAME 




PIC 


X(15) . 






76 


000850 


05 


FILLER 




PIC 


X(2). 






77 


000860 


05 


DET-RATE 




PIC 


***.99, 






78 


000870 


05 


FILLER 




PIC 


X(B). 






79 


000830 


05 


DET-REG-HOURS 




PIC 


19. 






80 


000890 


05 


FILLER 




PIC 


X(10). 






81 


000900 


05 


DET-OVERT I HE-HOURS 


PIC 


Z9. 






82 


0009 1 


05 


FILLER 




PIC 


X(6). 






83 


000920 


05 


DET-REGULAR-PAY 


PIC 


$Z,ZZ9. 


,99. 




84 


000930 


05 


FILLER 




PIC 


X(3). 






85 


000940 


05 


DET -OVERTIME -PAY 


PIC 


*Z,ZZ9. 


,99. 




86 


000950 


05 


FILLER 




PIC 


X(2). 






87 


000960 


05 


DET-GROSS-PAY 




PIC 


*Z,ZZ9. 


,99. 




88 


000970 


05 


FILLER 




PIC 


X(47). 






89 


000980 
















90 


000990 01 


TOTAL-LINE. 












91 


001000 


05 


FILLER 




PIC 


X(6) 


VALUE 


SPACES. 


92 


001010 


05 


FILLER 




PIC 


X(6) 


VALUE 


"TOTALS 


93 


00 1 020 


05 


FILLER 




PIC 


X(41) 


VALUE 


SPACES. 


94 


001030 


05 


TOTAL-REGULAR- 


-PAY 


PIC 


ill ZZ9. 


99. 




95 


001040 


05 


FILLER 




PIC 


X ( 3 ) 


VALUE 


SPACES. 



TRS-a0 Model II COBOL (RM/COBOL 1.3P,) 
SOURCE FILE: F''AYC0MP2 



4/lS/Bl 12. 10. 06 
OPTION LIST: T L=l 



PAGE 



LINE DEBUG PG/LW A. 



, B. 



ID. 



96 

97 

98 

99 

100 

101 

102 

103 

***** 
104 

***** 
105 
106 

***** 
107 

***** 
108 
109 
110 
111 

***** 
112 

***** 
113 
114 
115 
116 

***** 



TOTAL- OVERT I ME-PAY 
FILLER 

TOTAL-GROSS-PAY 
FILLER 



PIC $Z5ZZ9.99. 

PIC X(2) VALUE SPACES. 

PIC iZ, ZZ9.99. 

PIC X(47) VALUE SPACES. 



001050 05 

001060 05 

00 1 070 05 

001080 05 

001090 

001100 PROCEDURE DIVISION. 

>0000 001110 PREPARE-PAYROLL_,; civ/id, rivcc c. c • *. j u c-^ 

>0000 001120 OPEN INPUT I EMPLOYEF -f TTeI-''^ '^ Tlagged bacause FD was not recognized 

$ 
1 ) UNDEFINED *E*E*E*E*E*E*E*E*E*E«E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*F*E*E*F*E*E*E*E*F*E 
001130 OUTPUT PRINT-FILE. 

$ 
1) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W#W*W 
>0002 001140 PERFORM WRITE-HEADING-LINE. 

>0004 001150 READ EMPLOYEE-FILE 

* 
1) UNDEFINED *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*F 
00111^0 AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 

$ 

1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
>000A 001170 PERFORM PROCESS-RECORDS 

001180 UNTIL WS-DATA-REMAINS-SWITCH == "NO". 

>0014 001190 PERFORM WRITE-C0MPANY-TOTAL3. 
:>0016 001200 CLOSE EMPLOYEE-FILE 

* 

1 ) UNDEFINED *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E»E#E*E*E*E*E*E*E*E*E*E*E#E*F*E*E*E#E*E*E 
001210 PRINT-FILE. 

$ 

1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
>0018 001220 STOP RUN. 

001230 
>001A 001240 WRITE-HEADING-LINE. 

>001A 001250 WRITE PRINT-LINE FROM HEADING-LINE 

* 
1 ) IDENTIFIER *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

FIGURE 5.2 Continued 
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117 001260 AFTER ADVANCING PAGE. 

#i4.^t*^(. X ) SCAN RESUME *W*W*W*W«W*W*W*W*W*W*W*W*W*W*W*W*WsW*W*W*W*W*W*W*W*W*W*W*W*W*W 

118 >001C 001270 WRITE PRINT-LINE FROM DABHED-LINE 

* 

#if.*#it J ) IDENTIFIER *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*-E*E*E*E*E*E*E*E*E*E*E*E«E*E*E*E 

119 001280 AFTER ADVANCING 1 LINE. 

^(.**,j(.it 1 ) SCAN RESUME *W*W*W*W*U)*W*W*W*W*W*W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W^*^ 

1 '^^ ®^ ^ ■'■-'^® /Dataname in error because FD was not recognized 

121 >0020 001300 PROCESS-RECORDS. X 

122 >0020 001310 MULTI PLY | EMP-REG^IOURSl BY EMP-RATE GIVING IND-REGULAR-PAY. 

$ * 

***** 1 ) IDENTIFIER *E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

iH(.^(.^^ 2) SCAN RESUME *W*W*W*W»W»W*W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W#W*W 

123 >0022 001320 COMPUTE IND-OVERTI ME-PAY 



TRS-S0 Model II COBOL (RM/COBOL 1 . 3B ) 4/18/Sl 12.10.06 PAGE 

SOURCE FILE! PAYC0MP2 OPTION LIST: T L-1 



.INE DEBUG PG/LN A. 



ID. 



124 001330 = EMP-OVERTIME-HOURS * EMP-RATE * 1.5. 

$ * 

J,**** 1 ) inENTIFIFR #E*E*E*E*E*E*E*E*E*E«E*E*E*E*E*E*E*E*E*E*E*E»E*E*E*E*E*E*E*E*E*E*E*E 
***** 2) SCAN RESUME *W*W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W»W»W*W»W 

125 >0024 001340 ADD IND-REGULAR-PAY IND-OVERTIME-PAY GIVING IND-GROSB-PAY. 

126 001350 

127 :.^-002A 001360 PERFORM UPDATE-COMPANY- TOTALS. 

128 001370 

129 :>002C 001380 PERFORM WRITE-DETAIL-LINE. 

130 001390 

131 >002E 001400 READ EMPLOYEE-FILE 

$ 
^*^(.*^(. 1 ) UNDEFINED *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E 

3 3? 001410 AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 

* 
***** 1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*UI*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

1 33 00 1 420 

134 >0036 001430 UPDATE-COMPANY-TOTALS. 

135 >0036 001440 ADD IND-REGULAR-PAY TO CO-REGULAR-PAY. 

1% ym'M; 00)450 add ind-overtime-pay to co-overtime-pay. 

137 >0042 001460 ADD IND-GROBS-PAY TO CO-GROSS-PAY. 

138 001470 

1 39 >004A 00 1 480 WR I TE-DETA I L-L I NE . _^--^ — Datanames flagged because FD was not recognized 

140 ■>004A 001490 MOVE SPACES TO DETAIj 

141 >004E 001500 MOVE IEMP-LAST-NAMET TO D.gT^-l./iST-NAME. 

***** 1) IDENTIFIER *E*E»E*E*E*E*E*lp«^E*E!<*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E 
***** 2) SCAN RESUME *W*l.mWJ*W*!^^ 

142 >0050'^001510' MOVE |EMP-RATE| TO DET-I^TE. 

***** 1 ) IDENTIFIER *e*E#E#E*E*E*E»E*e/e*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
^(.^j,^^** V) qcAN RESUME *^■J* W*W*M*W*t■J*l■J*W^»W *W*M*^^J*^J*^^J*^■J*W*^^J*l■J*H*H*i^J*H*^J*l^J*W*^*l'J*l^J*l^l*t^l*M*^^J*W*t^J 

143 > 005?'" 00 15 20' MOVE |EMP-REG--HOURS| TO DET-REG-HOURS. 

***** 1 ) IDENTIFIER *F*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E«E*E*E*E*E*L*E*E*E*E*E*E*E*E#E*t*E*b 
^.,^,.#^^^(. ■:>) staN RESUME *W*W*W*W*W*W*W*W*W*W*W*W«W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*I.J*W*W 

144 ■■0054 001530 MOVE EMP-OVERTIME-HOURS TO DET-OVER TIME -HOURS. 

* * 

***** 1 ) IDENTIFIER *E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E»E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

^f^«,^(.*^,:- ■.;■) SCAN RESUME ■»W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

,145 > 005 6'^ 001540'^ MOVE IND-REGULAR-PAY TO DET-REGULAR-PAY. 

146 >00'=.A 001550 MOVE IND-OVERTIME-PAY TO DET-OVERT I ME-PAY. 

147 >005E 001560 MOVE IND-GR03S-PAY TO DET-GROSS-PAY. 

148 >0062 001570 WRITE PRINT- LINE FROM DETAIL-LINE 

**■■»** 1 ) IDENTIFIER *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E«E*E*E*E*E*E*E*E*E«E*E*E*E*E*E*E*E 

149 001580 AFTER ADVANCING 2 LINES. 



****** 



1 ) SCAN RESUME *w*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*U*W*W*W*W*W*W 

in0 001590 

151 J 0066 001600 WRITE-COMPANY-TOTALS. 

FIGURE 5.2 Continued 
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TRS- B0 Model II COBOL (RM/COBOL 1.3B) 
SOURCE FILE: PAYC0MP2 



4/ 18/81 12.10.06 
OPTION list: T L=1 



PAGE 



LINE DEBUG PG/LN A. 



152 

***** 
153 

***** 
154 
155 
156 
157 

***** 

***** 

158 

***** 

159 

***** 
160 



J- 0066 001610 

1) IDENTIFIER 
001620 



, B 

WRITE 



ID. 



PR I NT-L I NEl FROM DA3HED-L I NE 



*E*E*E*E*E*E*E*E*E*E*E>e^*E*E*E*E*E*E*E*E*E*E*E*E*E*E*F*E*F#E»F*E*F 

AFTER ADVANCING 1 LINE>--^oDiMT i imc « ju dd.iv.t m c ^ x- ^ 

SPRINT-LINE flagged bacausePRlNTFILE was not defined 

1 ) SCAN RESUME *W*W*W*W*W«W#W*W*W*W*W*W*W*w4w*W*W*W*W*W*W*W*W*W*W*W#W*W*W*W*W*W*W*W 

>0068 001630 MOVE CO-REGULAR-PAY TO TOTAl/REGULAR- PAY. 

>006C 001640 MOVE CO-OVERTIME-PAY TO TOT/L-OVERTIME-PAY. 

>0070 001650 MOVE CO-GROSS-PAY TO TOTAl/gRO SS-PAY. 

>0074 001660 MOVE TOTAL-LINE TO [PRINT-LINEl . 

* * 

1 ) IDENTIFIER *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

2) SCAN RESUME *W*W«W*W*W*W*W*W*W*W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
;0076 001670 WRITE PRINT-LINE 

* 

1 ) IDENTIFIER »E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*F*E*F*E*F*E*F*E*E*E 

001680 AFTER ADVANCING 2 LINES. 

$ 
1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W»W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

ZZZZZZ END PROGRAM. *#* END OF FILE *** 



TRS-80 Model II COBOL (RM/COBOL 1.3B) 
SOURCE FILE: PAYC0MP2 

ADDRESS SIZE DEBUG ORDER TYPE 



4/18/81 i: 
OPTION LIST: 

NAM 



10.06 PAGE 
T L=l 



■■0004 



ANS 



ALPHANUMERIC 



■0008 


18 


GRP 





GROUP 




•0008 


6 


NSU 





NUMERIC 


UNSIGNED 


•000E 


6 


NSU 





NUMERIC 


UNSIGNED 


■0014 


6 


NSU 





NUMERIC 


UNSIGNED 


■001A 


24 


GRP 





GROUP 




•001A 


8 


NSU 





NUMERIC 


UNSIGNED 


■0022 


a 


NSU 





NUMERIC 


UNSIGNED 


002A 


8 


NSU 





NUMERIC 


UNSIGNED 


•0032 


132 


GRP 





GROUP 




00B6 


132 


GRP 





GROUP 




00B6 


90 


ANS 





ALPHANUMERIC 


013A 


132 


GRP 





GROUP 




013C 


15 


ANS 





ALPHANUMERIC 


014D 


6 


NSE 





NUMERIC 


EDITED 


015B 


2 


NSE 





NUMERIC 


EDITED 


0167 


2 


NSE 





NUMERIC 


EDITED 


016F 


9 


NSE 





NUMERIC 


EDITED 


017B 


9 


NSE 





NUMERIC 


EDITED 


0186 


9 


NSE 





NUMERIC 


EDITED 


01 BE 


132 


GRP 





GROUP 




01F3 


9 


NSE 





NUMERIC 


EDITED 


01FF 


9 


NSE 





NUMERIC 


EDITED 


020A 


9 


NSE 





NUMERIC 


EDITED 



WS-DATA-REMA INS-SWITCH 

IND-COMPUTATIONS 
IND-REGULAR-PAY 
IND-OVERTIME-PAY 
IND-GROBS-PAY 

COMPANY-TOTALS 
CO-REGULAR-PAY 
CO--OVERTIME-PAY 
CO-GROSS-PAY 

HEADING-LINE 

DASHED-LINE 
ROW-OF-DASHES 

DETAIL-LINE 
DET-LAST-NAME 
DET-RATE 
DET-REG-HOURS 
DET-OVERT I ME-HOURS 
DET-REGULAR-PAY 
DET-OVERT I ME-PAY 
DET-GROSS-PAY 

TOTAL-LINE 
TOTAL-REGULAR-PAY 
TOTAL-OVE RT I ME-PAY 
TOTAL-GROSS-PAY 



READ ONLY BYTE SIZE == >0132 
READ/WRITE BYTE SIZE = >024C 
OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE = >037E 

--39 errors result because of one mistake 



20 ERRORS 
19 WARNINGS 



FIGURE 5.2 Continued 



ERRORS IN After a program has successfully compiled, it proceeds to execute and therein 
EXECUTION lies the strength and weakness of the computer. The primary attractiveness 
of the machine is its ability to perform a fantastic number of operations in 
infinitesimal amounts of time; its weakness stems from the fact that it does 
exactly what it has been instructed to do. The machine cannot think for it- 
self. The programmer must think for the machine. If you were inadvertently 
to instruct the computer to compute pay by adding hours and rate, then that 
is what it would do . 

To give you an idea of what can happen, we have deliberately altered 
the original payroll problem of Chapter 4 and created a new program. That, 
in turn, created the output of Figure 5.3, which at first glance resembles the 
original output of Figure 4.6. There are, however, subtle errors as follows: 

1. Regular pay is not totalled for the company. 

2. The total gross pay equals the gross pay of the last employee, and is 
obviously wrong. 

3. Cents are missing from regular pay, overtime pay, and gross pay. 

4. Overtime pay is calculated incorrectly. 

5. The last record (Doe) is processed twice. 

6. The first record (Jones) is missing. 



-First record (Jones) is missing Y" Overtime pay should be $66.00 

NAME RA'IE REG HOURS 0/T HOURS REG PAY \o/T PAY GROSS PAY 



DOBBS 




$^i 


50 


40 


BENJAMIN 




*6 


7'j 


30 


MILGROM 




*8 


■=.0 


35 


I'ATER 




*6 


66 


35 


SMITH 




%5 


00 


40 




DOE 




$'=; 


50 


40 


/ 


DOE 




*5 


5Q) 


40 


' TOTALS 










Last 


record processed 


twice 











$ 


220.00 


* 


\ ~ ^ ^""'^' 


* 




8 


' 44.00| 


264 . 00 





« 


202. 


00 


% 


0.00 


$ 


202 . 00 


10 


$ 


297. 


00 


* 


85 . 00 


* 


382.00 


8 


$ 


233. 


00 


* 


53.00 


% 


236.00 


10 


S 


200\ 00 


% 


50.00 


* 


250.00 


9 


V 


420.00 


% 


49.00 


* 


269.00 


9 / 


/ 
$ 


220 . 00 


% 


49.00 


* 


269.00 


.^ ...... /. 




— 


$ 
pay is 


330.00 
not totaled 


" -"- '■— 






/ 


$ 


0. 00 


* 


269.00 




Cents are miss 


ing 


\ 
Regi 


ilar 




/ 





Gross pay total is wrong 
FIGURE 5.3 Incorrect payroll report (produced by Figure 5.4) 



Note well that Figure 5.4, the program that produced the otitput of 
Figure 5.3, compiled cleanly, with no error messages. Put another way, the 
errors inherent in Figure 5.3 are errors in execution, rather than compilation. 
The compiler successfully translated the COBOL program of Figure 5.4 into 
machine language because it (the program) was syntactically correct. Unfor- 
tunately, the program was logically incorrect, and hence the errors in Figure 
5.3. Each error is discussed in detail. 
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000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 



IDENTIFICATION DIVISION. 
PR06RAM-ID. PAYL.06IC. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT "PAYROLL/DAT". 
SELECT PRINT-FILE 

ASSIGN TO PRINT " PAYLOGIC/TXT" . 

DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS EMPLOYEE-RECORD. 
01 EMPLOYEE-RECORD. 
05 EMP-NAME. 

10 EMP-LAST-NAME PIC X<15). 
10 EMP-FIRST-NAME PIC X(10). 
05 EMP-HOURS-WORKED. 

10 EMP-REG-HOURS PIC 99. 
10 EMP-OVERTIME-HOURS PIC 99. 
05 EMP-RATE PIC 99V99. 

05 FILLER PIC X(47). 

FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 



01 PRINT-LINE 

WORKING-STORAGE SECTION. 
77 WS-DATA-REMA INS-SWITCH 

01 IND-COMPUTATIONS. 

05 IND-REGULAR-PAY 
05 IND-OVERTIME-PAY 
05 IND-GROSS-PAY 

01 COMPANY-TOTALS. 

05 CO-REGULAR-PAY 
05 CO-OVERTIME-PAY 
05 CO-GROSS-PAY 

01 HEADING-LINE. 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 



PIC X(132), 



PIC X(3) 



PIC 9(4). 
PIC 9(4). 
PIC 9(4). 



PIC 9(6)V99 
PIC 9(6)V99 
PIC 9(6)V99 



VALUE SPACES. 

-Pictures should include 
implied decimal points 



VALUE ZEROS. 
VALUE ZEROS, 
VALUE ZEROS. 



01 



DASHED-LINE. 

05 ROW-OF-DASHES 



PIC 


X(B) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"NAME". 


PIC 


X(9) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"RATE". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"REG HOURS" 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"0/T HOURS" 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(7) 


VALUE 


"REG PAY". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(7) 


VALUE 


"0/T PAY". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"GROSS PAY" 


PIC 


X(46) 


VALUE 


SPACES. 


PIC 


X(90) 


VAL.UE 


ALL "-". 



FIGURE 5.4 Payroll program with logic errors 
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000800 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
001510 



05 FILLER 

01 DETAIL-LINE. 

05 FILLER 

05 DET-LAST-NAME 

05 FILLER 

05 DET-RATE 

05 FILLER 

05 DET-REG-HOURS 

05 FILLER 

05 DET-OVERTIME-HOURS 

05 FILLER 

05 DET-RE(5ULAR-PAY 

05 FILLER 

05 DET-OVERTIME-PAY 

05 FILLER 

05 DET-GROSS-PAY 

05 FILLER 

01 TOTAL-LINE. 

05 FILLER 

05 FILLER 

05 FILLER 

05 TOTAL-REGULAR-PAY 

05 FILLER 

05 TOTAL-OVERT I ME-PAY 

05 FILLER 

05 TOTAL-GROSS-PAY 

05 FILLER 

PROCEDURE DIVISION. 
PREPARE-PAYROLL. 

OPEN INPUT EMPLOYEE-FILE 

OUTPUT PRINT-FILE. 
PERFORM WRITE-HEADING-LINE. 
READ EMPLOYEE-FILE 

AT END MOVE "NO" TO WB- DATA-REMAINS-SWITCH. 
PERFORM PROCESS-RECORDS 

UNTIL WS-DATA-REMAINS-SWITCH = "NO". 
PERFORM WRITE- COMPANY-TOTALS . 
CLOSE EMPLOYEE-FILE 

PRINT-FILE. 
STOP RUN. 

WRITE-HEADING-LINE. 

WRITE PRINT-LINE FROM HEADING-LINE 

AFTER ADVANCING PAGE. 
WRITE PRINT-LINE FROM DASHED-LINE 
AFTER ADVANCING 1 LINE. 

y READ should be last statement of performed routine 
PROCESS-RECORDS. / 



PIC 


X(42) 


VALUE 


SPACES. 


PIC 


X(2). 






PIC 


X( 15). 






PIC 


X ( 2 ) . 






PIC 


*$*.99 






PIC 


X ( 8 ) . 






PIC 


Z9. 






PLC 


X(10) . 






PIC 


Z9. 






PIC 


X(6). 






PIC 


*Z,ZZ9 


99. 




PIC 


X(3). 






PIC 


*Z) ZZ9. 


99. 




PIC 


X ( 2 > . 






PIC 


*Z,ZZ9. 


99. 




PIC 


X ( 47 ) . 






PIC 


X(6) 


VALUE 


SPACES. 


PIC 


X(6) 


VALUE 


"TOTALS" 


PIC 


X(41) 


VALUE 


SPACES. 


PIC 


*Z,ZZ9. 


99. 




PIC 


X(3) 


VALUE 


SPACES. 


PIC 


$Z,ZZ9. 


99. 




PIC 


X(2) 


VALUE 


SPACES. 


PIC 


*Z,ZZ9. 


99. 




PIC 


X ( 47 ) 


VALUE 


SPACES. 



READ EMPLOYEE-FILE 
AT END MOVE "NO" 



TO WS-DATA-REMAINS-SWITCH. 



MULTIPLY EMP-RE6-H0URS BY EMP-RATE GIVING IND-REGULAR-PAY. 
COMPUTE IND-OVERTIME-PAY = EMP-OVERTIME-HOURS * EMP-RATE * l.|5. 
ADD IND-REGULAR-PAY IND-OVERTIME-PAY GIVING IND-GROSS-PAY. 



PERFORM UPDATE-COMPANY-TOTALS. 
PERFORM WRITE -DETAIL-LINE. 




5 is In column 73, and ignored by compiler 



UPDATE-COMPANY-TOTALS . 

ADD IND-OVERTIME-PAY TO CO-OVERTIME-PAY. 
ADD IND-GROSS-PAY TO CO-GROSS-PAY. 



WRITE-DETAIL-LINE. 
MOVE SPACES TO 



DETAIL-LINE. 
MOVE EMP-LAST-NAME TO DET-LAST-NAME. 
MOVE EMP-RATE TO DET-RATE, 
MOVE EMP-REG-HOURS TO DET-REG-HOURS. 
MOVE EMP-OVERTIME-HOURB TO DET-OVERTIME-HOURS. 



CO-REGULAR-PAY is not incremented 



FIGURE 5.4 Continued 
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001520 MOVE IND-REGULAR--PAY TO DET-RESULAR-PAY. 

001530 MOVE IND-OVERTIME-PAY TO DET-OVERTIME-PAY. 

001540 MOVE IND-GROSS-PAY TO DET-GROSS-PAY. 

001550 WRITE PRINT-LINE FROM DETAIL-LINE 

001560 AFTER ADVANCING 2 LINES. 

001570 

001580 WRITE-COMPANY-TOTALS. 

001590 WRITE PRINT-LINE FROM DASHED-LINE _^Wrong field moved to total line 

001600 AFTER ADVANCING 1 LINE. 

001610 MOVE CO-REGULAR-PAY TO TOJAlr^EGULAR-PAY. 

001620 MOVE CO-OVERTIME-PAV L-^f<rTX)TAL-OVERTIME-PAY. 

001630 MOVE I IND-GROSS-PAyT tO TOTAL-GROSS-PAY. 

001640 MOVE TOTAL-LINE TO PRINT-LINE. 

001650 WRITE PRINT-LINE 

001660 AFTER ADVANCING 2 LINES. 

FIGURE 5.4 Continued 

1 . Regular pay is not totalled: The function of the paragraph, UPDATE- 
COMPANY-TOTALS is to increment all fields for which a running 
total is required. That was done successfully for both overtime and 
gross pay. It was not done for regular pay because the statement 
ADD IND-REG-PAY TO CO-REG-PAY is missing. 

2. Total gross pay is wrong: CO-GROSS-PAY is incremented correctly 
in line 1440, so that the problem must be elsewhere. The paragraph 
WRITE-COMPANY-TOTALS builds a total line, then writes it. The 
error is in line 1630, in which IND-GROSS-PAY rather than CO- 
GROSS-PAY is moved to TOTAL-GROSS-PAY. 

3. Cents missing: DET-REGULAR-PAY, defined in line 920 with 
PIC $Z,ZZ9.99 contains the printed value of regular pay. IND- 
REGULAR-PAY, defined in line 520 with PIC 9(4), holds the calcu- 
lated value for regular pay as determined by the MULTIPLY statement 
in line 1330. The problem arises because of an inconsistency in the 
two picture clauses. We are printing a field with a decimal point, 
without having calculated the decimal value. IND-REGULAR-PAY 
has a picture of 9(4), but should have had a picture of 9(4)V99 in- 
stead. The compiler was not told to retain a decimal value for IND- 
REGULAR-PAY, so it didn't; the fact that this field is subsequently 
moved to one containing a decimal point is immaterial. 

4. Overtime pay is calculated incorrectly : This is a very subtle error, 
and one the author almost missed. Overtime pay is simply time 
and a half for each overtime hour. The COMPUTE statement of line 
1340 appears correct, yet the calculated value is wrong. Dobbs, for 
example, worked 8 overtime hours. His regular pay rate is $5.50 per 
hour, so his overtime pay should be $66 (8 X $5.50 X 1,5) rather 
than $44. The $44 for Dobbs represents straight time, i.e., 8 X 
$5.50, rather than time and a half. It's as if the .5 were missing from 
the COMPUTE statement of line 1340, yet .5 appears on the listing. 
This apparent contradiction is resolved when we realize the 5 is in 
column 73! In effect, the COMPUTE statement ended with the 
period after the 1 (in column 72), ignoring the entries in columns 
73 and 74. 

5. Last record processed twice: Recall that when the skeletal COBOL 
outline was presented in Chapter 2, there was an initial READ state- 
ment in the mainline paragraph and a second READ as the last state- 
ment in the performed routine. That structure is correct. In Figure 
5.4, the initial READ is still present, but the second READ was in- 
correctly moved to the beginning of the performed routine, causing 
the last record to be processed twice. Eliminate the problem by 
moving lines 1310 and 1320 immediately after line 1390. 
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6. First record missing: This is a secondary effect of the previous error. 
The first record Jones is correctly read by the initial READ of lines 
1150 and 1160. However, since the first statement of the performed 
routine is also a READ, Jones will be immediately replaced by 
Dobbs before any processing takes place. This problem disappears 
with the previous correction. 

It is important to emphasize that these execution errors are not con- 
trived, but typical of students and beginning programmers. Even the accom- 
plished practitioner can be guilty of similar errors when rushed or careless. 
Realize also that execution errors occur without fanfare. There are no com- 
piler diagnostics to warn of impending trouble. The program has compiled 
cleanly, and if it goes to a normal end of job, there is nothing to indicate 
a problem. 

SUMMARY Don't be discouraged or surprised if you have many compilation errors in 
your first few attempts. Remember that a single error in a COBOL program 
can result in many error messages and that the errors can be made to disap- 
pear in bunches. (Recall what happened when environment was misspelled in 
Figure 5.2.) 

Before leaving the subject of compilation errors, it is worthwhile to re- 
view a list of common errors and suggested ways to avoid them. 

1. Nonunique data names: Occurs because the same data name is de- 
fined in two different records or twice within the same record. For 
example, NAIVIE might be specified as input data in an EMPLOYEE- 
FILE and printed as output in a PRINT-FILE. To avoid the prob- 
lem of nonunique data names, it is best to prefix every data name 
within a file by a short prefix. ElViP- could be established as a pre- 
fix for EMPLOYEE-FILE, and PRINT as the prefix for PRINT- 
FILE as shown. This also helps locate data names while writing and 
debugging programs. 



FD EMPLOYEE-FILE 



DATA RECORD IS EMP-RECORD. 
01 EMP-RECORD. 

05 EMP-NAME PIC X (20). 

05 EMP-SOC-SEC-NO PIC 9(9). 



FD PRINT-FILE 



DATA RECORD IS PRINT-RECORD. 
01 PRINT-RECORD. 

05 PRINT-NAME PIC X(20). 

05 FILLER PICX(5). 

05 PRINT-SOC-SEC-NO PIC 9(9). 
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2. Omitted periods: Every COBOL sentence should have a period and 
omission usually results in the compiler's assumption of a period. 
Realize, however, that the period has special significance v\/ith re- 
spect to the IF statement where its omission (or inclusion) does 
not cause compiler errors, but significantly alters the program's 
logic. 

3. Omitted space before/after an arittimetic operator: The arith- 
metic operators *, /, +, and - all require a blank before and after 
them. (A typical error for FORTRAN or PL/1 programmers since 
the space is not required in those languages.) 

4. Invalid picture for numeric entry: All data names used in arithme- 
tic statements must have numeric pictures. Permissible entries 
include: 9's, and a V. 

5. Conflicting picture and value clause: Numeric pictures must have 
numeric values (no quotes); non-numeric pictures must have non- 
numeric values (must be enclosed in quotes). Both entries below 
are invalid. 

05 TOTAL PIC 9(3) VALUE "123". 

05 TITLE-WORD PICX(3) VALUE 123. 

Another common error is to use value and picture clauses of 
different lengths. The entry: 

05 EMPLOYEE-NAME PIC X(4) VALUE "R BAKER". 

causes a diagnostic for just that reason. 

6. Inadvertent use of COBOL reserved word: COBOL has a list of 
some 300 reserved words which can only be used in their desig- 
nated sense; any other use results in one or several diagnostics. 
Some reserved words are obvious; e.g., WORKING-STORAGE, 
IDENTIFICATION, ENVIRONMENT, DATA, and PROCEDURE. 
Others such as CODE, DATE, START, and REPORT are less obvi- 
ous. Instead of memorizing the list or continually referring to it, 
try this simple rule of thumb. Always use a hyphen in every data 
name you create. This will work better than 99% of the time. 

7. Conflicting RECORD CONTAINS clause and FD record descrip- 
ion: A recurrent error, even for established programmers. It stems 
from sometimes careless addition in that the sum of the pictures in 
an FD does not equal the number of characters in the RECORD 
CONTAINS clause. It can also result from other errors within the 
Data Division, namely when an entry containing a PICTURE clause 
is flagged. 

8. Omitted hyphen in a data name: A careless error, but one that 
occurs entirely too often. If in the Data Division we define PRINT- 
TOTAL-PAY, and then try to reference PRINT TOTAL-PAY, the 
compiler objects violently. It doesn't state that a hyphen was 
omitted, but it flags both PRINT and TOTAL-PAY as undefined. 
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10. 



Misspelled data names or reserved words: Too many COBOL stu- 
dents are poor spellers. Sound strange? How do you spell environ- 
ment? One or many errors can result, depending on which word 
was spelled incorrectly. 

Reading a record name or writing a file name: The COBOL rule is 
very simple. One is supposed to read a file and write a record; 
many people get it confused. The following entries should clarify 
the situation: 



Correct entries: 



Incorrect entries: 



FD EMPLOYEE-FILE 



DATA RECORD IS EMP-RECORD. 



FD PRINT-FILE 



DATA RECORD IS PRINT-RECORD. 



READ EMPLOYEE-FILE. . . 
WRITE PRINT-RECORD. . . 



READ EMP-RECORD... 
WRITE PRINT-FILE. . . 



11. Going past column 72: This error can cause any of the preceding 
errors as well as a host of others to occur. A COBOL statement 
must end in column 72 or before; columns 73-80 are left blank or 
used for program identification. If one goes past column 72 in a 
COBOL statement, it is very difficult to catch because the COBOL 
listing contains columns 1 to 80 although the compiler only inter- 
prets columns 1 to 72. 



TRUE/FALSE 



1. Data names may contain blanks. 

2. If a program compiles correctly, it must execute correctly. 

3. In COBOL, one reads a file and writes a record. 

4. Compilation stops as soon as one error is found. 

5. All compilation error messages appear directly under the statement in error. 

6. An error in one statement may cause errors in other, apparently correct statements. 

7. It is impossible to execute a program with compilation errors. 

8. The compiler will flag all logic errors. 

9. Data names in a COMPUTE statement must be defined with numeric pictures. 
10. One compile may produce files with extensions of LST and COB. 
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EXFRC/SES 

1. This problem description is to be used for problems 1 and 2. The Bursar has requested 
a COBOL program to process a set of student records and calculate the amount due 
from each student. Incoming records have the following format: 



Columns 



Field 



Picture 



1-20 


STUDENT NAME 


X(20) 


21-29 


SOCIAL SECURITY NUMBER 


9(9) 


30-31 


CREDITS TAKEN 


99 


32 


UNION MEMBER 


X 


33-36 


SCHOLARSHIP AMOUNT 


9(4) 



Student bills are calculated as follows: 

Tuition: $80 per credit. 

Union Fee: $25 for members, $50 for nonmembers 

(members have a "Y" in column 32). 

Activity Fee: $25 for 6 credits or less. 

$50 for 7-12 credits. 
$75 for more than 12 credits. 
Scholarship: The amount, if any, is punched in 

columns 33-36. 

The net bill, therefore, is tuition plus union fee plus activity fee, minus scholarship. 
Correct the compilation errors in Figure 5.5. 



TRS-80 Model II COBOL (RM/COBOL 1.3B) 
SOURCE file: TUICOMP 

LINE DEBUG PG/LN A...B 



4/24/Bl 16.31.13 PAGE 
OPTION LIST! T L=l 



ID. 



1 


000100 


2 


000110 


3 


000120 


4 


000130 


5 


000140 


6 


000150 


7 


000160 


8 


000170 


9 


000180 


10 


000190 


11 


000200 


12 


000210 


13 


000220 


14 


000230 


15 


000240 


16 


000250 


17 


000260 


IS 


000270 


19 


000280 


20 


000290 


21 


000300 


22 


000310 


23 


000320 


24 


000330 


25 


000340 


26 


000350 



IDENTIFICATION DIVISION. 
PROGRAM-ID. TUICOMP. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT STUDENT-FILE 
ASSIGN TO INPUT 
SELECT PRINT-FILE 
ASSIGN TO PRINT 



'TUITION/DAT". 



"TUICOMP/TXT" 



DATA DIVISION. 

FILE SECTION. 

FD STUDENT-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS STUDENT-RECORD. 

01 STUDENT-RECORD. 

05 STUDENT-NAME PIC X(20). 

05 SOC-SEC-NUM PIC 9(9). 

05 CREDITS PIC 99. 



FIGURE 5.5 Debugging exercise 
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000360 




05 


UNION-MEMBER 


PIC 


X. 




28 




000370 




05 


SCHOLARSHIP 


PIC 


9(4). 




29 




000380 




05 


FILLER 


PIC 


X(44). 




30 




000390 














31 




000400 


FD 


PRINT-FILE 








32 




000410 




LABEL RECORDS ARE BTANDARE 


1 






33 




000420 




RECORD CONTAINS 132 CHARACTERS 






34 




000430 




DATA RECORD IS PRINT-LINE. 








35 




000440 


01 


PRINT-LINE. 








36 




000450 




05 


PRINT-STUDENT-NAME 


PIC 


X ( 20 ) . 




37 




000460 




05 


FILLER 


PIC 


XX. 




38 




000470 




05 


PRINT-SOC-SEC-NUM 


PIC 


999B99B9999. 


39 




000480 




05 


FILLER 


PIC 


X(4). 




A0 




000490 




05 


CREDITS 


PIC 


99. 




41 




000500 




05 


FILLER 


PIC 


X(3) . 




42 




000510 




05 


PRINT-TUITION 


PIC 


$$$*,**9 




43 




000520 




05 


FILLER 


PIC 


X. 




44 




000530 




05 


PRINT-UNION-FEE 


PIC 


$$*$,*$9 




45 




000540 




05 


FILLER 


PIC 


X(3). 




46 




000550 




05 


PRINT-ACTIVITY-FEE 


PIC 


$$*$,$$9 




47 




000560 




05 


FILLER 


PIC 


X(3). 




48 




000570 




05 


PRINT-SCHOLARSHIP 


PIC 


$***,*$9 




49 




000580 




05 


FILLER 


PIC 


X(5). 




50 




000590 




05 


PRINT-IND-BILL 


PIC 


*$*$,$$9 




51 




000600 




05 


FILLER 


PIC 


X(38). 




52 




000610 














53 




000620 


WORKING 


-STORAGE SECTION. 








TRS-S0 


Modi 


&1 II COBOL 


(RM/ COBOL 1.3B) 


4/24/81 16.; 


31.13 PAGE 2 


SOURCE 


FILE: TUICOMP 






OPTION LIST: T L=l 


LINE 1 


DEBUG PG/LN 
000630 


A, . 


.B. . 








, ID 


54 


77 


WS-; 


DATA-REMAINS-SWITCH 


PIC 


X(3) 


VALUE SPACES. 


55 




000640 














56 




000650 


01 


IND 


--COMPUTATIONS. 








57 




000660 




05 


IND-TUITION 


PIC 


9(4). 




58 




000670 




05 


IND-ACTIVITY-FEE 


PIC 


9(4). 




59 




000680 




05 


I ND-UN ION-FEE 


PIC 


9(4). 




60 




000690 




05 


IND-BILL 


PIC 


9(4). 




61 




000700 














62 




000710 


01 


UNIVERSITY-TOTALS. 








63 




000720 




05 


TOTAL-TUITION 


PIC 


9(6) 


VALUE ZEROS. 


64 




000730 




05 


TOTAL-SCHOLARSHIP 


PIC 


9(6) 


VALUE ZEROS. 


65 




000740 




05 


TOTAL-ACT I VI T Y-FEE 


PIC 


9(6) 


VALUE ZEROS. 


66 




000750 




05 


TOTAL UNION FEE 
* 

»E*E*E*E*E*E*E*E*E*E*E* 


PIC 

* 

E*E*E 


9(6) 


VALUE ZEROS. 


***** 


1) 


SYNTAX 


#E- 


*E*E- 


;*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E 


***** 


2) 


SCAN RESUME 


*W 


*w*w*w*w*w*w*w*w*w*w»w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w 


67 




000760 




05 


TOTAL- IND-BILL 


PIC 


X(6) 


VALUE ZEROS. 


68 




000770 














69 




000780 


01 


DASHED-LINE. 








70 




000790 




05 


FILLER 


PIC 


X(97) 


VALUE ALL "-". 


71 




000800 




05 


FILLER 


PIC 


X(35) 


VALUE SPACES. 


72 




000810 














73 




000820 


01 


HEADING-LINE. 








74 




000830 




05 


FILLER 


PIC 


X(12) 


VALUE "STUDENT NAME". 


75 




000840 




05 


FILLER 


PIC 


X(10) 


VALUE SPACES 


76 




000850 




05 
* 
*E*E- 


FILLER 


PIC 


X(ll) 


VALUE "SOC SEC NUM" . 

<-E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 


***** 


1) 


SYNTAX 


*E- 


ie-E*E*E*E*E*E*E*E*E*E*E*E*E*E*E«E*E*Ei 


***** 


2) 


SCAN RESUME 


*w*w*w*w*w»w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w#w*w*w*w*w*w*w*w*w*w*w*w 


***** 


2) 


DOUBLE DECLARATION «E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 


***** 


3) 


SCAN RESUME 


*W*W*W*W*W*W*W*W*W*U)*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 


***** 


3) 


DOUBLE DECLARATION *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 


77 




000860 




05 


FILLER 


PIC 


X(2) 


VALUE SPACES. 


78 




000870 




05 


FILLER 


PIC 


X(7) 


VALUE "CREDITS". 


79 




000880 




05 


FILLER 


PIC 


X(2) 


VALUE SPACES. 


80 




000890 




05 


FILLER 


PIC 


X(7) 


VALUE "TUITION". 



FIGURE 5.5 Continued 
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81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 



000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
>0000 001010 



05 
05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
F I L.L-ER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 


X(2) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"UNION FEE". 


PIC 


X(2) 


VALUE 


SPACES. 


PIC 


X(7) 


VALUE 


"ACT FEE". 


PIC 


X(2) 


VALUE 


SPACES. 


PIC 


X(ll) 


VALUE 


"SCHOLARSHIP 


PIC 


X(2) 


VALUE 


SPACES. 


PIC 


X(10) 


VALUE 


"TOTAL BILL" 


PIC 


X(36) 


VALUE 


SPACES. 



PROCEDURE DIVISION. 
START. 



***** 1) RESERVED WORD CONFLICT *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E»E*E*E*E*E*E*E*E 

93 001020 OPEN INPUT STUDENT-FILE 

* 
***** 1 ) SCAN RESUME *W*W*W*W*W*W#W*W#W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W#W*W#W*W*W*W*W 

94 001030 OUTPUT PRINT-FILE. 



TRS-80 Model II COBOL <RM/ COBOL 1.3B) 
SOURCE FILE! TUICOMP 

LINE DEBUG PG/LN A. . . B 



4/24/81 16.31.13 
OPTION LIST: T L=l 



PAGE 



ID. 



95 
96 

***** 
97 

***** 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 

***** 
***** 
113 
114 
115 
116 
117 
118 
119 
120 

***** 
121 

***** 
122 

***** 
123 



>000C 001040 
J-000E 001050 



PERFORM WRITE-HEADING-LINE. 
READ STUD-FILE 

1 ) UNDEFINED *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 

001060 AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 

* 
1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
>0014 001070 PERFORM PROCESS-RECORDS 

001080 UNTIL WS-DATA-REMAINS-SWITCH = "NO". 
>001E 001090 PERFORM WRITE-UNI VERSITY-TOTALS. 
>0020 001100 CLOSE STUDENT-FILE 

001110 PRINT-FILE. 

>002C 001120 STOP RUN. 

001130 
>002E 001140 WRITE-HEADING-LINE. 
>002E 001150 WRITE PRINT-LINE FROM HEADING-LINE 

001160 AFTER ADVANCING PAGE. 
>003A 001170 WRITE PRINT-LINE FROM DASHED-LINE 

001180 AFTER ADVANCING 1 LINE. 

001190 
>004A 001200 PROCESS-RECORDS. 

>004A 001210 COMPUTE IND-TUITION = 80* CREDITS. 

$ * 

1 ) IDENTIFIER *E*E*E*E*E*E*E*E*E*E*E*E#E*E*E#E*E*E*E#E*E*E*E*E*E*E#E*E*E*E*E*E#E*E 

2) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W#W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

001220 

IF UNION-MEMBER = "Y" 

MOVE 25 TO I ND-UN ION-FEE 
ELSE 

MOVE ZERO TO I ND-UN ION-FEE. 



>004C 001230 
001240 
001250 
001260 
001270 
:>005C 001280 
:-0060 001290 



MOVE 25 TO IND-ACTIVITY-FEE. 
IF CREDITS > 6 
$ 
*E*E*E*E*E*E»E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
MOVE 50 TO IND-ACTIVITY-FEE. 

* 
1 ) SCAN RESUME *W*W*W*W*W*W*W«W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W»W«W*W*W*W*W*W 
0062 001310 IF CREDITS > 12 



1) IDENTIFIER 
001300 



1) IDENTIFIER 
001320 



»E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
MOVE 75 TO IND-ACTIVITY-FEE. 

* 
1 ) SCAN RESUME *W#W»W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
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124 




001330 


125 


>0(364 


001340 


126 




001350 


127 




001360 


12B 


>006E 


001370 


129 


>0070 


001380 


130 


>0072 


001390 


131 




001400 


132 




001410 


133 


>007E 


001420 



COMPUTE IND-BILL = IND-TUITION + IND-UNIOIM-FEE 
+ IND-ACTIVITY-FEE - SCHOLARSHIP. 

PERFORM UPDATE-UNIVERSITY-TOTALS. 
PERFORM WRITE-DETAIL-LINE. 
READ STUDENT-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 



TRS-80 Model II COBOL (RM/COBOL 1.3B) 
SOURCE FILE: TUICOMP 



4/24/81 16.31.13 
OPTION LIST! T L=l 



PAGE 



LINE DEBUG PG/LN 



.8. 



ID. 



134 

***** 
135 

***** 

***** 

136 

137 

***** 
***** 
138 
139 
140 
141 
142 
143 
144 

***** 
***** 
145 
146 
147 
148 
149 
150 

***** 
151 

***** 
152 
153 
154 
155 
156 
157 
158 

***** 
***** 
159 
160 
161 
162 
163 
164 



>007E 001430 



1) 

2) 

>0086 

1) 

2) 
>0088 
>008E 

1 ) 

2) 

>0090 

>0098 
>0098 
;-009C 
>00A0 
:--00A4 

n 

2) 
>00A6 
>00AA 
;-00AE 
>00B2 
;-00B6 
>00BA 

1 ) 



ADD IND-TUITION TO TOTAL-TUITION GIVING TOTAL-TUITION. 

* * 

SYNTAX *E*E*E*E«E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
ADD I ND-UN ION-FEE TO TOTAL-UNION-FEE. 

* * 

*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
ADD IND-ACTIVITY-FEE TO TOTAL-ACTIVITY-FEE. 
ADD IND-BILL TO TOTAL- IND-BILL. 
$ $ 

DATA TYPE *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E 
SCAN RESUME *W*W*W*W*W»W»W#W*W*W*W*W*W*W*W*W*W#W*W*W*W*W*W«W«W*W*W*W*W*W*W*W*W*W 
001470 ADD SCHOLARSHIP TO TOTAL-SCHOLARSHIP. 
001480 
001490 WRITE-DETAIL-LINE. 



001440 

IDENTIFIER 
SCAN RESUME 

001450 

001460 



001500 MOVE SPACES TO PRINT-LINE. 

001510 MOVE STUDENT-NAME TO PRINT-STUDENT-NAME. 

001520 MOVE SOC-SEC-NUM TO PRINT-SOC-SEC-NUM. 

001530 MOVE CREDITS TO PRINT-CREDITS. 
* $ 

IDENTIFIER *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E»E*E*E*E*E 

SCAN RESUME *W*W*W*W*W*W»W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 

001540 MOVE IND-TUITION TO PRINT-TUITION. 

001550 MOVE IND-UNION-FEE TO PRINT-UNION-FEE. 

001560 MOVE IND-ACTIVITY-FEE TO PRINT-ACTIVITY-FEE. 

001570 MOVE SCHOLARSHIP TO PRINT-SCHOLARSHIP. 

001580 MOVE IND-BILL TO PR I NT- IND-BILL. 

001590 WRITE PRINT-FILE 



REFERENCE INVALID *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E 
001600 AFTER ADVANCING 2 LINES. 

* 
1 ) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W»W*W*W*W*W*W*W*W*W*W*W 
001610 
>00BE 001620 WRITE-UNIVERSITY-TOTALS. 
>00BE 001630 WRITE PRINT-LINE FROM DASHED-LINE 

001640 AFTER ADVANCING 1 LINE. 
>00CC 001650 MOVE SPACES TO PRINT-LINE. 
>00D0 001660 MOVE TOTAL-TUITION TO PRINT-TUITION. 
>00D4 001670 MOVE TOTAL-UNION-FEE TO PRINT-UNION-FEE. 

* $ 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E#E*E*E*E*E*E*E*E*E*E 

*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w*w»w*w*w*w*w*w 

MOVE TOTAL-ACTIVITY-FEE TO PRINT-ACTIVITY-FEE. 
MOVE TOTAL-SCHOLARSHIP TO PRINT-SCHOLARSHIP. 
MOVE TOTAL- IND-BILL TO PR I NT- IND-BILL. 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 
PROGRAM. *** END OF FILE *** 



1) IDENTIFIER 

2) SCAN RESUME 
>00D6 001680 
>00DA 001690 
>00DE 001700 
>00E2 001710 

001720 
ZZZZZZ END 
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TRS--60 Model 
SOURCE file: 



II COBOL 
TUICOMP 



(RM/ COBOL 1.3B) 



iDDRESS 


SIZE 



DEBUG 


ORDER 


TYPE 
FILE 


>0000 


80 


GRP 





GROUP 


>0000 


20 


ANS 





ALPHANUMERIC 


>0014 


9 


NBU 





NUMERIC UNSIGNED 


>001D 


2 


NSU 





NUMERIC UNSIGNED 


>001F 


1 


ANS 





ALPHANUMERIC 


>0020 


4 



NSU 





NUMERIC UNSIGNED 
FILE 


>0054 


132 


GRP 





GROUP 


>0054 


20 


ANS 





ALPHANUMERIC 


>006A 


11 


NSE 





NUMERIC EDITED 


>0079 


2 


NSU 





NUMERIC UNSIGNED 


>007E 


a 


NSE 





NUMERIC EDITED 


>0087 


8 


NSE 





NUMERIC EDITED 


>0092 


8 


NSE 





NUMERIC EDITED 


>009D 


8 


NSE 





NUMERIC EDITED 


>00AA 


8 


NSE 





NUMERIC EDITED 



>00E0 



)112 



;-0196 



ANS 



■00E4 


16 


GRP 





00E4 


4 


NSU 





■00Ea 


4 


NSU 





00EC 


4 


NSU 





00F0 


4 


NSU 





00F4 


30 


GRP 





00F4 


6 


NSU 





00FA 


6 


NSU 





0100 


6 


NSU 





0106 


6 


NSU 





■010C 


6 


ANS 






132 GRP 



121 GRP 







ALPHANUMERIC 

GROUP 

NUMERIC UNSIGNED 
NUMERIC UNSIGNED 
NUMERIC UNSIGNED 
NUMERIC UNSIGNED 

GROUP 

NUMERIC UNSIGNED 

NUMERIC UNSIGNED 

NUMERIC UNSIGNED 

NUMERIC UNSIGNED 

ALPHANUMERIC 

GROUP 

GROUP 



4/24/81 16.31.13 PAGE 
OPTION LIST: T L=l 

NAM 



STUDENT-FILE 
STUDENT-RECORD 
STUDENT-NAME 
SOC-SEC-NUM 
CREDITS 
UNION-MEMBER 
SCHOLARSHIP 

PRINT-FILE 
PRINT-LINE 
PRINT-STUDENT-NAME 
PRINT-SOC-SEC-NUM 
CREDITS 
PRINT-TUITION 
PRINT-UNION-FEE 
PRINT-ACTIVITY-FEE 
PRINT-SCHOLARSHIP 
PRINT-IND-BILL 

WS-DATA-REMAINS-SWITCH 

I ND- COMPUTATIONS 
IND-TUITION 
IND-ACTIVITY-FEE 
I ND-UN ION-FEE 
IND-BILL 

UNIVERSITY-TOTALS 
TOTAL-TUITION 
TOTAL-SCHOLARSHI P 

TOTAL-ACTIVITY-FEE 

TOTAL 

TOTAL- IND-BILL 

DASHED-LINE 

HEADING-LINE 



READ ONLY BYTE SIZE = >022S 
READ/WRITE BYTE SIZE = >02SE 
OVERLAY SEGMENT BYTE SIZE = >0000 
TOTAL BYTE SIZE == >04B6 

15 ERRORS 

14 WARNINGS 



FIGURE 5.5 Continued 



2. The program in Figure 5.6 compiled cleanly, but produced the erroneous report of 
Figure 5.8. (The desired report is shown in Figure 5.7.) Correct all logic errors so that 
the program will work as intended. 



000100 

000110 

000120 
000130 
000140 
000150 
000160 
000170 



IDENTIFICATION DIVISION. 
PROGRAM- ID. TUI LOGIC. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-B0. 



FIGURE 5.6 Debugging exercise 



000180 
















000190 


INPUT-OUTPUT SECTION. 










000200 


FILE-CONTROL. 










000210 




SELECT STUDENT-FILE 










000220 






ASSIGN TO INPUT "TUITION/DAT". 






000230 




SELECT PRINT-FILE 










000240 






ASSIGN TO PRINT " TUILOGI C/TXT" . 






000250 
















000260 


DATA DIVISION. 










000270 


FILE SECTION. 










000280 


FD 


STUDENT-FILE 










000290 




LABEL RECORDS ARE OMITTED 










000300 




RECORD CONTAINS 80 CHARACTERS 








000310 




DATA RECORD IS STUDENT-RECORD. 








000320 


01 


STUDENT-RECORD. 










000330 




05 


STUDENT -NAME 


PIC 


X<20). 






000340 




05 


SOC-SEC-NUM 


PIC 


9(9). 






000350 




05 


CREDITS 


PIC 


99. 






000360 




05 


UNION-MEMBER 


PIC 


X. 






000370 




05 


SCHOLARSHIP 


PIC 


9(4). 






000380 




05 


FILLER 


PIC 


X(44). 






000390 
















000400 


FD 


PRINT-FILE 










000410 




LABEL RECORDS ARE STANDARD 










000420 




RECORD CONTAINS 132 CHARACTERS 








000430 




DATA RECORD IS PRINT-LINE. 










000440 


01 


PRINT-LINE. 










000450 




05 


PRINT-BTUDENT-NAME 


PIC 


X ( 20 ) . 






000460 




05 


FILLER 


PIC 


XX. 






000470 




05 


PRINT-BOC-SEC-NUM 


PIC 


999B99B9999. 




000480 




05 


FILLER 


PIC 


X(4). 






000490 




05 


PRINT-CREDITS 


PIC 


99. 






000500 




05 


FILLER 


PIC 


X(3). 






000510 




05 


PRIIMT-TUITION 


PIC 


****,**9 






000520 




05 


FILLER 


PIC 


X. 






000530 




05 


PRINT-UNION-FEE 


PIC 


$$*$,**9, 






000540 




05 


FILLER 


PIC 


X(3). 






000550 




05 


PRINT-ACTIVITY-FEE 


PIC 


****,**9 






000560 




05 


FILLER 


PIC 


X(3). 






000570 




05 


PRINT-SCHOLARSHIP 


PIC 


*$9, 






000580 




05 


FILLER 


PIC 


X(5). 






000590 




05 


PRINT-IND-BILL 


PIC 


$*$*,*$9 






000600 




05 


FILLER 


PIC 


X ( 43 ) . 






000610 
















000620 


WORKING 


-STORAGE SECTION. 










000630 


77 


WS- 


DATA-REMA I NS-BW I TCH 


PIC 


X(3) 


VALUE 


SPACES. 


000640 
















000650 


01 


IND 


-COMPUTATIONS. 










000660 




05 


IND-TUITION 


PIC 


9(4). 






000670 




05 


IND-ACTIVITY-FEE 


PIC 


9(4). 






000680 




05 


I ND-UN ION-FEE 


PIC 


9(4). 






000690 




05 


IND-BILL 


PIC 


9(4). 






000700 
















000710 


01 


UNIVERSITY-TOTALS. 










000720 




05 


TOTAL-TUITION 


PIC 


9(6) 


VALUE 


ZEROS. 


000730 




05 


TOTAL-SCHOLARSHI P 


PIC 


9(6) 


VALUE 


ZEROS. 


000740 




05 


TOTAL-ACT I V I TY~FEE 


PIC 


9(6) 


VALUE 


ZEROS. 


000750 




05 


TOTAL-UNION-FEE 


PIC 


9(6) 


VALUE 


ZEROS. 


000760 




05 


TOTAL- IND-BILL 


PIC 


9(6) 


VALUE 


ZEROS. 


000770 
















000780 


01 


DASHED-LINE. 










000790 




05 


FILLER 


PIC 


X(97) 


VALUE 


ALL "-". 


000800 




05 


FILLER 


PIC 


X(35) 


VALUE 


SPACES. 


000810 
















000820 


01 


HEADING-LINE. 










000830 




05 


FILLER 


PIC 


X(12) 


VALUE 


"STUDENT NAME 


000840 




05 


FILLER 


PIC 


X(10) 


VALUE 


SPACES. 


000850 




05 


FILLER 


PIC 


X(ll) 


VALUE 


"SOC SEC NUM" 


000860 




05 


FILLER 


PIC 


X(2) 


VALUE 


SPACES. 


000870 




05 


FILLER 


PIC 


X(7) 


VALUE 


"CREDITS". 


000880 




05 


FILLER 


PIC 


X(2) 


VALUE 


SPACES. 


000890 




05 


FILLER 


PIC 


X(7) 


VALUE 


"TUITION". 


000900 




05 


FILLER 


PIC 


X(2) 


VALUE 


SPACES. 


000910 




05 


FILLER 


PIC 


X(9) 


VALUE 


"UNION FEE". 


000920 




05 


FILLER 


PIC 


X(2) 


VALUE 


SPACES. 


000930 




05 


FILLER 


PIC 


X(7) 


VALUE 


"ACT FEE". 



F IG U R E 5.6 Continued 



000940 
000950 
000960 
000970 
000980 
000990 

001000 

001010 
001020 
001030 
001040 
001070 

001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001 180 
001190 
001200 
001201 
001202 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001310 
001320 
001321 
001322 
001330 
001340 
001350 
001360 
001370 
001380 
001410 
001420 
001430 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 



05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 


X(2) 


VALUE 


SPACES. 


PIC 


XCll) 


VALUE 


"SCHOLARSHIP" 


PIC 


X(2) 


VALUE 


SPACES. 


PIC 


X(10) 


VALUE 


"TOTAL BILL". 


PIC 


X(36) 


VALUE 


SPACES. 



PROCEDURE DIVISION. 
PREPARE-TUITION-REPORT. 

OPEN INPUT STUDENT-FILE 
OUTPUT PRINT-FILE. 
PERFORM WRITE-HEADING-LINE. 
PERFORM PROCESS-RECORDS 

UNTIL WS~DATA-REMAINS-SWITCH = "NO". 
PERFORM WRITE-UNIVERSITY-TOTALS. 
CLOSE STUDENT-FILE 

PRINT-FILE. 
STOP RUN. 

WRITE-HEADING-LINE. 

WRITE PRINT-LINE FROM HEADING-LINE 

AFTER ADVANCING PAGE. 
WRITE PRINT-LINE FROM DASHED-LINE 

AFTER ADVANCING 1 LINE. 

PRO CESS- RE CORDS. 

READ STUDENT-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 
COMPUTE IND-TUITION = 80 * CREDITS. 

IF UNION-MEMBER = "Y" 

MOVE 25 TO I ND-UN ION-FEE 
ELSE 

MOVE ZERO TO IND-UNION-FEE. 

MOVE 25 TO IND-ACTIVITY-FEE. 
IF CREDITS > 12 

MOVE 75 TO IND-ACTIVITY-FEE. 
IF CREDITS > 6 

MOVE 50 TO IND-ACTIVITY-FEE. 

COMPUTE IND-BILL = IND-TUITION + IND-UNION-FEE 
+ IND-ACTIVITY-FEE - SCHOLARSHIP. 

PERFORM UPDATE-UNIVERSITY-TOTALS. 
PERFORM WRITE-DETAIL-LINE. 

UPDATE-UNIVERSITY-TOTALS. 

ADD IND-TUITION TO TOTAL-TUITION. 

ADD IND-ACTIVITY-FEE TO TOTAL-ACTIVITY-FEE. 

ADD IND-BILL TO TOTAL- IND-BILL. 

ADD SCHOLARSHIP TO TOTAL-SCHOLARSHIP. 

WRITE-DETAIL-LINE. 

MOVE SPACES TO PRINT-LINE. 

MOVE STUDENT-NAME TO PRINT-STUDENT-NAME. 

MOVE SOC-SEC-NUM TO PRINT-SOC-SEC-NUM. 

MOVE CREDITS TO PRINT-CREDITS. 

MOVE IND-TUITION TO PRINT-TUITION. 

MOVE IND-UNION-FEE TO PRINT-UNION-FEE. 

MOVE IND-ACTIVITY-FEE TO PRINT-ACTIVITY-FEE. 

MOVE SCHOLARSHIP TO PRINT-SCHOLARSHIP. 

MOVE IND-BILL TO PRINT-IND-BILL. 

WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 

WRITE-UNIVERSITY-TOTALS. 

WRITE PRINT-LINE FROM DASHED-LINE 

AFTER ADVANCING 1 LINE. 
MOVE SPACES TO PRINT-LINE. 
MOVE TOTAL-TUITION TO PRINT-TUITION. 
MOVE TOTAL-UNION-FEE TO PRINT-UNION-FEE. 
MOVE TOTAL-ACTIVITY-FEE TO PRINT-ACTIVITY-FEE. 
MOVE TOTAL-SCHOLARSHIP TO PRINT-SCHOLARSHIP. 
MOVE IND-BILL TO PRINT-IND-BILL. 
WRITE PRINT-LINE 

AFTER ADVANCING 2 LINES. 
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OVERVIEW The material in Ctnapters 1 through 5 enables the reader to do some meaning- 
ful COBOL programming. The objective of this chapter is to introduce ad- 
ditional COBOL elements which will give the programmer a more powerful 
grasp of the language. To that end, we cover advanced options of some verbs 
we already know, as well as present new elements and additional features. 

We begin with the IF and PERFORM statements, two of the more 
powerful verbs. The IF statement is extended to include compound tests, 
88-level entries, and nested IFs. Coverage of the PERFORIVI verb includes 
the THRU and VARYING options, and differentiates between performing 
sections versus paragraphs. The ACCEPT statement is used to obtain the date 
of execution. ACCEPT and DISPLAY are alsoexpanded to include the LINE, 
POSITION, and REVERSE clauses associated with the CRT. 

READ and WRITE are enlarged to cover READ INTO and WRITE 
FROM, respectively. The ROUNDED and SIZE ERROR options are pre- 
sented with the COMPUTE verb. Nonunique data names, qualification, and 
MOVE CORRESPONDING are all included. INSPECT is mentioned as a 
convenient way of inserting hyphens in a social security number. Finally, 
there is appreciable coverage of table processing to include the OCCURS 
and REDEFINES clauses, table initialization, and table lookups. 

Needless to say, there is a lot of material in this chapter. We have tried 
to make it readily understandable by including numerous examples as each 
feature is introduced. Of greater significance perhaps is the complete pro- 
gram at the chapter's end, which incorporates most of the material and 
serves as an effective review. 



I F The IF statement is one of the more powerful in COBOL. In this section, we 
expand the discussion to include: compound tests, 88-level entries, and 
nested IFs. Figures 6.1 and 6.2 illustrate the use of compound conditions: 




FIGURE 6.1 Flowchart for the condition A > B and C > D 
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FIGURE 6.2 Flowchart for the condition A > B or C> D 



Compound Tests 

The logical operators, AND and OR may be combined to form a compound 
test. AND means both; i.e., two conditions must be satisfied for the IF to be 
considered true. OR means either; i.e., only one of the two conditions need 
be satisfied for the IF to be considered true. A flowchart is shown in Figure 
6.1, depicting the AND condition. It requires that both A be greater than B 
and C be greater than D in order to proceed to TRUE. If either of these tests 
fails, the compound condition is judged false. 

Figure 6.2 contains a flowchart for a compound OR. As can be seen 
from Figure 6.2, only one of two conditions need be met for the IF to be 
considered true. If either A is greater than B or C is greater than D, process- 
ing is directed to TRUE. In other words, the OR provides a second chance in 
that the first test can fail but the IF can still be considered true. 

Beginning programmers are often carried away with compound condi- 
tions. Consider the statement: 

IF X > YOR X = Z AIMD X < W . .. 

Surely the programmer knew what was intended at the time the state- 
ment was first written. A day later, however, one is apt to stare at it and 
wonder what will happen first; i.e., which takes precedence, AND or OR? To 
provide an unequivocal evaluation of compound conditions, COBOL estab- 
lishes the following hierarchy : 

1 . Arithmetic expressions 

2. Relational operators 

3. NOT condition 

4. AND (from left to right if more than one) 

5. OR (from left to right if more than one) 
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Thus, for the preceding statement to be true either 

X > Y 
or X = Zanc/X < W 

However, parentheses can and should be used to clarify the program- 
mer's intent. The meaning of the above statement is made clearer if it is 

rewritten as 

IF X > Y OR (X = Z AND X < W) . . . 

Note well that parentheses can also alter meaning. Thus the following 
statement is logically different from the original code: 

IF (X > Y OR X = Z) AND X < W . . . 



Condition Name Tests (88-Level Entries) 

The condition in the IF statement often tests the value of an incoming code, 
e.g., IF YEAR-IN-SCHOOL = 1 . . . . While such coding is quite permissible, 
and indeed commonplace, the meaning of the value 1 in YEAR-IN-SCHOOL 
is not immediately apparent. An alternative form of coding, condition names 
(88-level entries), provides superior documentation. Consider: 

05 



YEAR-IN-SCHOOL 


PIC 9. 




88 FRESHMAN 




VALUE 1. 


88 SOPHOMORE 




VALUE 2. 


88 JUNIOR 




VALUES. 


88 SENIOR 




VALUE 4. 


88 GRAD-STUDENT 




VALUES ARE 5 THRU 8. 


88 UNDER-CLASSMAN 




VALUES ARE 1,2. 


88 UPPER-CLASSMAN 




VALUES ARE 3, 4. 


88 VALID-CODES 




VALUES ARE 1 THRU 8. 



If the preceding entries were made in the Data Division, one could code 

IF FRESHMAN 

as equivalent to 

IF YEAR-IN-SCHOOL = 1 

The advantage of condition names is threefold. First, they provide im- 
proved documentation; i.e., FRESHMAN is inherently clearer than YEAR- 
IN-SCHOOL = 1. Second, they facilitate maintenance in that additions 
and/or changes to existing codes need to be made in only one place. For 
example, suppose the code for freshman is subsequently changed to 10 . 
Only a single change is required in the 88-level entry. If, however, condi- 
tion names are not used, then one must find all occurrences of YEAR-IN- 
SCHOOL = 1 in the Procedure Division, and the chance of error is much 
greater. Finally, they permit grouping of several codes into a single entry; 
e.g., GRAD-STUDENT, and thereby reduce the need for sometimes confus- 
ing compound conditions. Thus 
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IF GRAD-STUDENT . . . 

is equivalent to 

IF YEAR-IN-SCHOOL > 4 AND YEAR-IN-SCHOOL < 9. 

Nested IFs 

The general format of the IF statement is : 



IF condition 



statement-1 I 

NEXT SENTENCE ) 



ELSE 



|statement-2 



\ NEXT SENTENCE 



The condition may be any of the tests we have discussed, i.e., condition 
name, relational, or compound. The NEXT SENTENCE clause causes execu- 
tion to continue with the first statement following the period. 

A nested IF results when either statement-1 or statement-2 is itself an- 
other IF statement; i.e., there are two or more IFs in one sentence. Con- 
sider Figure 6.3, which shows a flowchart and corresponding COBOL code 
to determine the largest of three quantities A, B, and C. (They are assumed 
to be unequal numbers.) 



MOVEB 
TO BIG 




MOVEC 
TO BIG 




MOVEC 
TO BIG 



MOVE A 
TO BIG 




FIGURE 6.3a Flowchart for a nested IF 



IF A > B 
IF A > C 

MOVE A TO BIG 
ELSE 

MOVEC TO BIG 
ELSE 

IFC > 8 

MOVEC TO BIG 
ELSE 

MOVE BTO BIG. 



FIGURE 6.3b COBOL code for nested IFs 



102 Chapter 6 



The code in Figure 6.3b is a nested IF statement because there are three 
IF clauses within one sentence. The rule for compiler interpretation bears 
repeating. The ELSE clause is associated with the closest previous IF that is 
not already paired with another ELSE. 

The compiler, however, pays no attention to indentation in a nested IF 
statement, which is done strictly for programmer convenience. We strongly 
advocate careful attention to indentation and recommend the following 
guidelines : 

1. Each nested IF should be indented four columns from the previous 
IF. 

2. The word ELSE should appear on a line by itself and directly under 
its associated IF. 

3. Detail lines should be indented four columns under both IF and 
ELSE. 

These guidelines were used in Figure 6.3b. A second example follows: 

IF A > B 
IF c > D 

MOVE S TO W 

IVIOVEX TO Y 
ELSE 

ADD 1 TOZ. 

Note that in this example Z is incremented by 1 if A is greater than B, 
but C is not greater than D. If, however, A is not greater than B, control 
passes to the next sentence with no further action being taken. 



PERFORM The PERFORM verb was introduced in Chapter 4 as the means of imple- 
menting a loop. We now consider additional options available with this im- 
portant verb. 

The procedure name in the PERFORM statement can specify either a 
paragraph or a section. We already know what a paragraph is. A section con- 
sists of one or more paragraphs. If the procedure name in the PERFORM 
statement refers to a section name, then every paragraph in the section will 
be executed prior to returning control. Consider Figure 6.4. 

PERFORM 010-READ-PROCESS-WRITE. 

.« 

Transfer to 



-•-010-READ-PROCESS-WRITE SECTION. 
011-READ. 



012-PROCESS. 



013-WRITE. Return to 



020-COIMTII\IUE-PROCESSING SECTION. 
FIGURE 6.4 Performing a section 
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When the PERFORM statement references a section-name, control is 
transferred to the first sentence in the section. Control will not return to the 
sentence after the PERFORM untU the last statement in the section was exe- 
cuted. Notice that this results in the execution of several paragraphs. How 
does the compiler know when the section ends? Simply when a new section 
name is encountered. 

Situations may arise when it is necessary to cease performing, i.e., pre- 
maturely exit a given routine. This is accomplished by the THRU option of 
the PERFORM verb and the EXIT statement. Consider an extended format 
of the PERFORM: 

PERFORM procedure-name-1 [ THRU procedure-name-2] 

The THRU option causes all statements between the two procedure 
names to be executed. (Remember, the procedures may be either paragraphs 
or sections.) Common practice is to make procedure-name-2 a single-sentence 
paragraph consisting of the word EXIT. The EXIT statement causes no 
action to be taken; its function is to delineate the end of the PERFORM. 
Consider Figure 6.5. 



PERFORM 010-READ-PROCESS THRU 020-READ-EXIT. 



r-010-READ-PROCESS. 



IF CARD-CODE = "F", GO TO 020-READ-EXIT. 
015-ANOTHER-PARAGRAPH. 



Range of PERFORM, 



IF CARD-CODE = "G", GO TO 020-READ-EXIT. 
018-STILL-ANOTHER-PARAGRAPH. 



IF CARD-CODE = "H", GO TO 020-READ-EXIT. 
020-READ-EXIT. 
EXIT. 



FIGURE 6.5 PERFORM THRU 



The PERFORM statement nominally causes execution of all statements 
within the two procedures. However, it is possible to prematurely terminate 
the PERFORM by GO TO 020-READ-EXIT. The GO TO statement does not 
leave the PERFORM, but jumps forward to the EXIT statement. (The latter 
causes no execution, and merely provides a branch point for the GO TO 
statement.) Hence, the PERFORM is properly terminated, and control re- 
turns to the statement after the PERFORM. Use of a GO TO statement 
should be severely restricted; i.e., limited to a forward branch to an EXIT 
statement, as in this example, if not eliminated entirely. (See Chapter 7 on 
structured programming. ) 

Another form of PERFORM, PERFORM/ VARYING, wUl be intro- 
duced later in the chapter, in conjunction with table processing. 



DISPLAY 



ACCEPT 



The DISPLAY statement was first introduced in Chapter 1 as the means of 
sending information to the CRT terminal. Consider now an abbreviated 
format: 



DISPLAY 



f identifier-1 



) 

|_ lliteral-2 /J 

[position /''^^"^'f'^'-nl 

L Ulteral-3 JJ 



[ 



]•• 



REVERSE 



The DISPLAY statement causes either a Hteral or the value of an identi- 
fier to appear on the screen. As can be seen from the three dots in the syn- 
tax, more than one literal and/or identifier may appear in the same state- 
ment. The LINE option allows the user to specify the particular line (from 1 
to 24) where the output is to appear. The POSITION feature specifies the 
column (from 1 to 80 on a Model II). If LINE is omitted, output will appear 
on the line immediately below the current position of the cursor. If POSI- 
TION is not specified, output is displayed in column 1. REVERSE highlights 
the result of a DISPLAY statement by printing black letters on a white field 
as opposed to the normal white letters on a black field. Some examples: 

DISPLAY "HELLO". 

DISPLAY "X = "X. 

DISPLAY "X = ", X,"Y = ", Y. 

DISPLAY "GOODBYE" REVERSE. 

DISPLAY "TRS-80" 

LINE 15 POSITION 20. 

The reader is urged to consult the TRS-80 COBOL reference manual for 
additional options. 

The ACCEPT statement is used to obtain the date and/or time of program 
execution. Consider: 

/DATE 



ACCEPT ldentifier-1 FROM^ DAY 

[time 



In all cases, identifier-! is a programmer-defined work area to hold the 
information being accepted. If DATE is specified, then identifier-1 wiU re- 
ceive a six -digit numeric field in the form yymmdd. The first two digits con- 
tain year, the next two month, and the last two, day of the month, e.g., 
790316, denoting March 16, 1979. If DAY, rather than DATE is specified, 
a five-digit numeric field is returned to the work area. The first two digits 
represent year and the last three the day of the year, numbered from 1 to 
366. March 16, 1979, would be represented as 79075, but March 16, 1980, 
would be 80076 since 1980 is a leap year. 

TIME returns an eight-digit numeric field in a 24-hour system. It con- 
tains the number of elapsed hours, minutes, seconds, and hundredths of 
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seconds after midnight, in that order, from left to right. 10:15 A. M. would 
return as 10150000; 10:15 P.M. as 22150000. 

The importance of correctly answering the DATE and TIME questions 
when powering up the TRS-80 should now become apparent. The ACCEPT 
statement obtains its values from data initially supplied by the user. 

The ACCEPT statement is also the means of inputting data from the 
keyboard, as was done in the program of Chapter 1. An abbreviated format 
is: 

ACCEPT identifier-1 



r fidentifier-2n 

LINE{ }\ 

L I literal -1 jj 

POSITION i \\ 

L lliteral-3 Jj 

[ reverse] . . . 



The LINE, POSITION, and REVERSE options work in a similar fash- 
ion as in the DISPLAY statement. 

When an ACCEPT statement is executed, the system suspends execu- 
tion, until a response has been received. Consequently, common practice is 
to precede any ACCEPT statement with a DISPLAY statement, indicating 
the nature of the response. (See Figure 1.1.) 

READ I NTO The general form of the READ statement is: 

READ file-name [INTO Identifier] AT END imperative statement. 

The READ INTO option stores the input record in the specified area 
and, in addition, moves it to the designated identifier following INTO. 
Consider: 

FD EMPLOYEE-FILE 



DATA RECORD IS EMPLOYEE-RECORD. 
01 EMPLOYEE-RECORD PICX(80). 



WORKING-STORAGE SECTION. 

01 WS-RECORD-AREA PICX(80). 



PROCEDURE DIVISION. 

READ EMPLOYEE-FILE INTO WS-RECORD-AREA 
AT END PERFORM END-OF-JOB-ROUTINE. 

The input data will be avaUable in both EMPLOYEE-RECORD and WS- 
RECORD-AREA. The single READ INTO statement is equivalent to both: 

READ EMPLOYEE-FILE 

AT END PERFORM END-OF-JOB-ROUTINE. 

and MOVE employee-record to ws-record-area. 



WRITE FROM WRITE FROM is analogous to READ INTO in that it combines a MOVE and 
WRITE statement into one. The general form of the WRITE statement is: 



WRITE record-name [ FROIVI identifier-Ill { TT— — ^ADVANCING 



K BEFORE ) 
if 
AFTER / 



/ fidentifler-2J TUNE T 

I LlinesJ 



I integer 
mnemonic-name » 
PAGE / 



WRITE FROM is particularly useful when writing heading lines in that 
VALUE clauses may appear in Working-Storage. Consider: 



FD PRINT-FILE 



DATA RECORD IS PRINT-LINE. 
01 PRINT-LINE P1CX(132). 



WORKING-STORAGE SECTION. 
01 HEADING-LINE. 

05 FILLER PICX(20) 

VALUE SPACES. 
05 FILLER PICX(12) 

VALUE "ACME WIDGETS". 



WRITE PRINT-LINE FROIVI HEADING-LINE 
AFTER ADVANCING PAGE. 

ROUNDED AND The ROUNDED and SIZE ERROR options are available for the five arith- 
SIZE ERROR metic verbs ADD, SUBTRACT, MULTIPLY, DIVIDE, and COMPUTE. Both 
OPTIONS options are frequently used. Consider the general form of the COMPUTE 
statement: 

COMPUTE jdentifier-1 [ROUNDED ] = arithmetic expression 
[ON SIZE ERROR imperative-statement] 

The SIZE ERROR option signals when the result of a calculation is too 
large for the designated field. Consider: 

05 HOURLY-RATE PIC 99. 

05 HOURS-WORKED PIC 99. 

05 GROSS-PAY PIC 999. 



COMPUTE GROSS-PAY = HOURLY-RATE * HOURS-WORKED. 

Assume that HOURLY-RATE and HOURS-WORKED are 25 and 40, 
respectively. The result of the multiplication should be 1000. Unfortunately, 
because GROSS-PAY was defined as a three-position numeric field, only the 
three right-most digits are retained, and GROSS-PAY becomes 000. The situ- 
ation is prevented by the inclusion of the SIZE ERROR option; 

COMPUTE GROSS-PAY = HOURLY-RATE * HOURS-WORKED 
ON SIZE ERROR PERFORM ERROR-ROUTINE. 
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Whenever the calculated result is too large, the SIZE ERROR clause 
will perform ERROR-ROUTINE. The latter consists of programmer-specified 
logic that should cause a warning message to print. Realize also that SIZE 
ERROR can be activated by zero division since any attempt to divide by 
zero results in a quotient of infinity. 

The ROUNDED clause causes the last decimal place to be rounded. 
Consider: 

COMPUTE GROSS-PAY ROUNDED = HOURLY -RATE * HOURS-WORKED 
ON SIZE ERROR PERFORM ERROR-ROUTINE. 

If GROSS PAY is defined to two decimal places (e.g., PIC 9(4) V99), 
then .005 is added to the result, and the third decimal place is truncated. 
Note well that omission of the ROUNDED clause results in the last decimal 
being truncated, rather than rounded. 



DUPLICATE 
DATA NAMES 



Most programs require that the output contain some of the input, e.g., name, 
social security number, etc. COBOL permits duplicate data names to be de- 
fined in the Data Division provided all Procedure Division references to du- 
plicate data names use qualification. Duphcate names are conducive to the 
CORRESPONDING option, which results in fewer statements in the Pro- 
cedure Division. Both qualification and the CORRESPONDING option are 
discussed in accordance with Figure 6.6. 



01 RECORD-IN. 

05 STUDENT-NAME PICX(20). 

05 SOCIAL-SEC-NUM PIC 9(9). 
05 STUDENT-ADDRESS. 

10 STREET PICX(15). 

10 CITY-STATE PICX(15). 

05 ZIP-CODE PICX(5). 



01 



05 |CREDITS|., 




PIC 999. 




05 MAJOR 




PICX(IO). 




05 FILLER 




-v.-„_^^PICX(3). 




PRINT-LINE. 




^^ 




10 STUDENT- 


-NAME^ 


PICX(20). 




10 FILLER 




PICX(2). 




10 IcREDITSp 




PICZZ9. 





10 FILLER 

10 TUITION 

10 FILLER 

10 STUDENT-ADDRESS. 
15 STREET 
15 CITY-STATE 
15 ZIP-CODE 

10 FILLER 

10 SOCIAL-SEC-NUM 

10 FILLER 



PICX(2). 
PIC $$,$$9.99. 
PICX(2). 

PICX(15). 

PICX(15). 

PICX(5). 

PICX(2). 

PIC999B99B9999. 

PICX(47). 



FIGURE 6.6 Data Division code for duplicate data names 



108 Chapter 6 

Qualification 



The coding in Figure 6.6 has several duplicate data names in RECORD-IN 
and PRINT-LINE, e.g., CREDITS, and it is confusing to reference any of 
these data names in the Procedure Division. Consider the statement: 

MULTIPLY CREDITS BY COST-PER-CREDIT GIVING CHARGE. 

The use of CREDITS is ambiguous; i.e., the compiler does not know 
which CREDITS (i.e., in RECORD-IN or PRINT-LINE) we are talking 
about. The solution is to qualify the data name, using OF or IN to clarify 
the reference. Thus the statement is rewritten as: 

MULTIPLY CREDITS OF RECORD-IN BY COST-PER-CREDIT GIVING CHARGE, 

Qualification may be required over several levels. For example, this 
statement is still ambiguous: 

MOVE STREET OF STUDENT-ADDRESS TO OUTPUT-AREA. 

Both STREET and STUDENT-ADDRESS are duplicate data names, so 
the qualification didn't help. We could use two levels to make our intent 
clear, e.g., 

MOVE STREET OF STUDENT-ADDRESS OF RECORD-IN TO OUTPUT-AREA. 

We could also skip the intermediate level and code: 

MOVE STREET IN RECORD-IN TO OUTPUT-AREA. 

Notice that OF and IN can be used interchangeably. Duplicate data 
names offer the advantage of not having to invent different names for the 
same item, e.g., an employee name appearing in both an input record and 
output record. They also permit use of the CORRESPONDING option. 



CORRESPONDIIMG 

The general form of the CORRESPONDING option is 
(corre sponding) 

MOVE J } identifier-1 TO ldentifier-2 



j corresponding) 
| corr I 



Notice that CORR is the abbreviated form of CORRESPONDING 
(analogous to PIC and PICTURE). Consider the record description in Figure 
6.6 and the statement: 

MOVE CORRESPONDING RECORD-IN TO PRINT-LINE. 

The MOVE CORRESPONDING statement is equivalent to several in- 
dividual MOVES. It takes every data name of RECORD-IN and looks for a 
duphcate data name in PRINT -LINE. Whenever a "match" is found, an in- 
dividual MOVE is generated. Thus the preceding MOVE CORRESPONDING 
is equivalent to: 
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MOVE STUDENT-NAME OF RECORD-IN 
MOVE SOCIAL-SEC-NUM OF RECORD-IN 
MOVE STREET OF RECORD-IN 
MOVE CITY-STATE OF RECORD-IN 
MOVE CREDITS OF RECORD-IN 



TO STUDENT-NAME OF PRINT-LINE. 
TO SOCIAL-SEC-NUM OF PRINT-LINE. 
TO STREET OF PRINT-LINE. 
TO CITY-STATE OF PRINT-LINE. 
TO CREDITS OF PRINT-LINE. 



Notice that the level numbers of the duplicate data names do not have 
to match; it is only the data names themselves that must be the same in each 
record. Further, notice that the order of the data names is immaterial; e.g., 
SOCIAL-SEC-NUM is the second field in RECORD-IN and the next to last 
in PRINT-LINE. 

Care must be taken to observe the following restrictions pertaining to 
the CORRESPONDING option. In particular: 

1. At least one item in each pair of CORRESPONDING items must be 
an elementary item for the MOVE to be effective. Thus, in the ex- 
ample, STUDENT-ADDRESS of RECORD-IN is not moved to 
STUDENT-ADDRESS of PRINT-LINE. (The elementary items 
STREET and CITY-STATE are moved instead.) 

2. Corresponding elementary items will be moved only if they have the 
same name and qualification up to but not including identifier-1 and 
identifier-2. Thus ZIP-CODE will not be moved. 



INSPECT The INSPECT statement is often used to insert hyphens in a social security 
number. Assume, for example, that social security number is stored as a 
nine-position field (with no hyphens) in an input record, but that it is to 
appear with hyphens in a printed report. This is accomplished as follows: 

01 RECORD-IN. 



05 SOC-SEC-NUM 
01 PRINT-LINE. 



PIC 9(9). 



05 SOC-SEC-NUM-OUT 
PROCEDURE DIVISION. 



PIC999B99B9999. 



MOVE SOC-SEC-NUM TO SOC-SEC-NUM-OUT. 
INSPECT SOC-SEC-NUM-OUT REPLACING ALL ' 



"BY 



The MOVE statement transfers the incoming social security number to 
an 11 -position field containing two blanks (denoted by B in the PICTURE 
clause). The INSPECT statement replaces every occurrence of a blank in 
SOC-SEC-NUM-OUT by the desired hyphen. (This technique is also used to 
insert /'s in date fields.) 



TABLES A table is a grouping of similar data. The values in a table are stored in con- 
secutive storage locations and assigned a single data name. Reference to in- 
dividual items within a table is accomplished by subscripts that identify the 
location of the particular item. 
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For example, assume company XYZ tabulates its sales on a monthly 
basis and that the sales of each month have to be referenced within a 
COBOL program. Without tables, 12 data names are required: SALES-FOR- 
JANUARY, SALES-FOR-FEBRUARY, etc. With tables, however, we define 
only a single data name, e.g., SALES, and refer to individual months by an 
appropriate subscript. Thus SALES (2) would indicate sales for the second 
month, i.e., February. 

Figure 6.7 is an example of a table with 12 entries. 



Month 


Sales 


Jan. 


$1000 


Feb. 


$2000 


Mar. 


$3000 


April 


$4000 


May 


$5000 


June 


$4000 


July 


$3000 


Aug. 


$2000 


Sept. 


$1000 


Oct. 


$2000 


Nov. 


$3000 


Dec. 


$6000 




Note: SALES (3) = sales 



for 3rd month = $3000. 
FIGURE 6.7 One-level table 



The OCCURS Clause 

The OCCURS clause specifies the number of entries in a table. The format 
of the OCCURS clause is simply: 

OCCURS integer TIMES 

Thus, for the one-dimension table of Figure 6.7, we might have the entry: 

05 SALES OCCURS 12 TIMES PIC 9(6). 

This entry would cause a 72-position table (12 entries X 6 positions per 
entry) to be estabhshed in the computer's memory, as shown: 



SALES 


SALES (1) 


SALES (2) 




SALES (12) 


























see 















There may be instances in which the OCCURS clause functions as a 
group item and does not contain a PICTURE clause. Consider: 



05 SALES-TABLE OCCURS 12 TIMES. 
10 VOLUME PIC 9(6). 

10 MONTH PICX(IO). 



SALES-TABLE contains 192 (12 X 16) positions, and is shown schematically: 



SALES ^ TABLE 


SALES -TABLE (1) SALES^TABLE (2) 


SALES-TABLE (12) 


Vol Month Vol 


Month 


• • • Vol Month 












One could reference either VOLUME (1) to refer to the sales volume 
of the first month, MONTH (1) to refer to the name of the first month, or 
SALES-TABLE (1) to refer collectively to the 16 positions of the first 
month. 

Processing a Table 

Once the table in Figure 6.7 has been established (via an OCCURS clause), 
we shall want to sum the 12 monthly totals and produce an annual total. We 
shall illustrate two approaches. 
The first is brute force, i.e.. 



COMPUTE ANNUAL-SALES = SALES (1) + SALES (2) 

+ SALES (4) + SALES (5) 

+ SALES (7) + SALES (8) 

+ SALES (10) + SALES (11) 



+ SALES (3) 
+ SALES (6) 
+ SALES (9) 
+ SALES (12). 



This technique is cumbersome to code, but it does explicitly illustrate the 
concept of table processing. A more elegant procedure is to establish a loop 
through the use of a variable subscript. Consider the following: 

MOVE ZERO TO ANNUAL-SALES. 

MOVE 1 TO SUBSCRIPT. 

PERFORM COMPUTE-ANNUAL-TOTALS UNTIL SUBSCRIPT > 12. 



COMPUTE-ANNUAL-TOTALS. 

ADD SALES (SUBSCRIPT) TO ANNUAL-SALES. 
ADD 1 TO SUBSCRIPT. 

The reader should be convinced that this code produces the same nu- 
meric result as the brute force technique. Even so, he or she is probably 
wondering why bother with the more complex code of a loop when a single 
COMPUTE statement is apparently shorter? Suppose, however, that instead 
of monthly sales we had weekly or even daily totals— end of debate. 

There are two basic ways to control the value of a subscript within a 
loop. The first is for the programmer explicitly to vary the value, as was al- 
ready shovra. The second is to use the VARYING option of the PERFORM 
verb. Consider: 

MOVE ZERO TO ANNUAL-SALES. 
PERFORM COMPUTE-ANNUAL-TOTALS 
VARYING SUBSCRIPT FROM 1 BY 1 
UNTIL SUBSCRIPT > 12. 



COMPUTE-ANNUAL-TOTALS. 

ADD SALES (SUBSCRIPT) TO ANNUAL-SALES. 
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The value of SUBSCRIPT is initialized to 1 and automatically incre- 
mented by 1 every time the paragraph COMPUTE-ANNUAL-TOTALS is 
executed. Look carefuUy at the VARYING and UNTIL clauses; VARYING 
SUBSCRIPT FROM 1 BY 1 UNTIL SUBSCRIPT > 12. The greater-than 
sign causes the paragraph COMPUTE-ANNUAL-TOTALS to be executed 12 
times. (PERFORM VARYING increments, tests, and then branches. Accord- 
ingly, if an equal sign had been used instead; i.e., UNTIL SUBSCRIPT =12, 
the paragraph would have been executed only 11 times.) 

COBOL subscripts may be either variable or constant, and must adhere 
to the following rules: 

1. A space may not precede the right parenthesis nor follow the left 
parenthesis. 

VALID: SALES (SUB) 

VALID: SALES (2) 

INVALID: SALES ( 2) 

INVALID: SALES (2 ) 

2. At least one space is required between the data name and left 
parenthesis. 



INVALID 

VALID 

INVALID 



SALES(SUB) 
SALES (2) 
SALES(2) 



REDEFINES Clause 



The REDEFINES clause is frequently used to establish constant values for a 
table. Assume, for example, that it is necessary to refer to the 12 months of 
the year by name. A person knows that MONTH (1) refers to January, 
MONTH (2) to February, etc. but the computer must be made aware of this 
explicitly. The OCCURS and REDEFINES clauses are used in conjvmction 
with one another in Working-Storage as shown in Figure 6.8. 

The group item MONTH-NAMES has 12 FILLER entries, each 10 char- 
acters long. The VALUE clause is used with each FILLER entry to establish 
an initial value. 

WORKING-STORAGE SECTION. 



01 MONTH-TABLE. 

05 MONTH-NAMES. 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
10 FILLER 
05 MONTH-SUB REDEFI 
10 MONTH OCCURS 



PICXdO) VALUE "JANUARY 

PICXdO) VALUE "FEBRUARY 

PICX(IO) VALUE "MARCH 

PICXdO) VALUE "APRIL 

PICXdO) VALUE "MAY 

PICXdO) VALUE "JUNE 

PICXdO) VALUE "JULY 

PIC XdO) VALUE "AUGUST 

PICXdO) VALUE "SEPTEMBER 

PICXdO) VALUE "OCTOBER 

PICXdO) VALUE "NOVEMBER 

PICXdO) VALUE "DECEMBER 

NES MONTH-NAMES. 

12TIMES PICXdO). 



FIGURE 6.8 Initialization of a table using OCCURS and REDEFINES 
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The REDEFINES clause gives another name to previously allocated 
space; i.e., MONTH-SUB is another name for the 120 positions of MONTH- 
NAMES. However, MONTH-SUB consists of a table, MONTH, with 12 
entries. Thus, MONTH (1) refers to the first 10 positions in MONTH-NAMES 
("JANUARY "), MONTH (2) to the next 10 positions ("FEBRUARY "), 
etc. This may appear somewhat confusing, but it is made mandatory by a 
language restriction in COBOL: a VALUE clause cannot be used in the same 
statement as an OCCURS clause. 

Table Lookups 

Data are almost invariably stored in coded rather than expanded format. The 
obvious advantage is that less space is required in the storage medium, e.g., 
the diskette containing the data file. Thus, somewhere in the program, a 
conversion from a code to an expanded value has to take place. The con- 
version is known as a table lookup and is illustrated in Figure 6.9. 

WORKING-STORAGE SECTION. 



01 



01 



01 



TABLE-PROCESSING-ELEMENTS. 








05 WS-MAJOR 


-SUB 




PIC 9(4). 






05 WS-FOUIMD- 


MAJOR 


■SWITCH 


PICX(3). 






WIAJOR-VALUE 












05 FILLER 






PICX(14) 


VALUE 


"1234ACCOUNTING ". 


05 FILLER 






PICX(14) 


VALUE 


"1400BIOLOGY 


05 FILLER 






PICX(14) 


VALUE 


"1978CHEMiSTRY ". 


05 FILLER 






PICX(14) 


VALUE 


'2100CIVIL ENG 


05 FILLER 






PICX(14) 


VALUE 


'2458E. D.P. 


05 FILLER 






PICX(14) 


VALUE 


'3245ECONOMICS ". 


05 FILLER 






PICX(14) 


VALUE 


'3960FINANCE 


05 FILLER 






PICX(14) 


VALUE 


'4321 MANAGEMENT". 


05 FILLER 






PICX(14) 


VALUE 


'4999MARKETING ". 


05 FILLER 






PICX(14) 


VALUE 


'5400STATISTICS 


MAJOR-TABLE REDEFINES MAJOR- 


VALUE. 






05 MAJORS 


OCCURS 10TIMES. 






10 MAJOR 


-CODE 




PICX(4). 






10 MAJOR 


-NAME 




PICX(IO). 







PROCEDURE DIVISION. 

MOVE 1 TO WS-MAJOR-SUB. 

MOVE "NO" TO WS-FOUND-MAJOR-SWITCH. 

PERFORM 030-FIND-MAJOR 

UNTIL WS-FOUND-MAJOR-SWITCH = "YES". 



030-FIND-MAJOR. 

IF WS-MAJOR-SUB > 10 

MOVE "YES" TO WS-FOUND-MAJOR-SWITCH 
MOVE "UNKNOWN" TO HDG-MAJOR 
ELSE 

IFST-MAJOR-CODE = MAJOR-CODE (WS-MAJOR-SUB) 
MOVE "YES" TO WS-FOUND-MAJOR-SWITCH 
MOVE MAJOR-NAME (WS-MAJOR-SUB) TO HDG-MAJOR 
ELSE 

ADD 1 TOWS-MAJOR-SUB. 

FIGURE 6.9 Table lookup 
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The objective of Figure 6.9 is to take a fotir-digit code for major and 
convert it to an expanded value that will subsequently appear in a printed 
report. The table of codes and expanded values is established in Working- 
Storage using the OCCURS, REDEFINES, and VALUE clauses discussed 
earlier. 

The logic in Figure 6.9 begins by setting a subscript to 1 and a switch to 
'NO'. When the incoming code, ST-MAJOR-CODE, matches a code in 
the table, the switch, WS-FOUND-MAJOR-SWITCH, is set to 'YES' and 
processing is finished. Notice that the value of the subscript, WS-MAJOR- 
SUB, is compared to the number of entries in the table. If the entire table 
has been checked without finding a match, we signify an unknown major 
and terminate processing in the loop. This type of error checking is ex- 
tremely important and is one way of distinguishing the professional from the 
student. If the check were not included and an unknown code did appear, 
the subscript would be incremented indefinitely until some type of fatal 
error occurred. 



SUMIVIARY This chapter covered several advanced Procedure Division capabilities. We 
began with the IF statennent and several of its ramifications. We studied the 
INSPECT verb and saw its use in editing data. We took another look at the 
I/O statements ACCEPT, DISPLAY, READ INTO, and WRITE FROM. We 
learned about nonunique data names, qualification, and the CORRESPOND- 
ING option. Arithmetic statements were expanded to include the ROUNDED 
and SIZE ERROR options. We took a second look at the PERFORM verb, 
learned how to define a table and to code a "table lookup" procedure. 

While we hope the material in this chapter has been understandable, we 
readily admit it can make for dry reading. Our fundamental approach 
throughout the book is to learn by doing. To that end we have developed a 
complete COBOL program that incorporates most of the material in this 
unit. Specifications are as follows: 

Input A file of customer records in a car rental 

agency containing the fields: customer name, 
car type (i.e., compact, intermediate, or full 
size), car make (e.g., Buick, Datsun, etc.), 
days rented, and miles driven. 
Processing Compute the amount of money owed by each 

customer. The amount is a function of car 
type, days rented, and miles driven. Compact 
cars are billed at 12?! a mile and $1 1.00 a day, 
intermediate cars at 14(2! a mile and $12.00 a 
day, and full size cars at 16?ia mile and 
$13.00 a day. In addition, each incoming 
record is to be checked for valid car type (C, 
I, or F) and valid car make (according to a 
table in the program). Records with invalid 
data are to be flagged and not processed 
further. 
Output One line of information for each valid record. 

Each detail record is to include the car make, 
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expanded from the input code, necessitating a 
table lool<up routine. Output is to be double 
spaced and limited to five customers on a 
page, which requires establishment of a suit- 
able page heading routine. 

The completed COBOL program is shown in Figure 6.10. The record 
layouts for CAR-RENTAL-FILE and PRINT-FILE are specif ied in Working- 
Storage rather than the File Section. Accordingly, note the use of subse- 
quent READ INTO and WRITE FROM statements (lines 1530 and 2060). 



000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 



IDENTIFICATION DIVISION. 
PROGRAM-ID. CARS. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT CAR-RENTAL-FILE 

ASSIGN TO INPUT "CARS/DAT". 
SELECT PRINT-FILE 

ASSIGN TO PRINT "CARS/TXT". 

DATA DIVISION. 

FILE SECTION. 

FD CAR-RENTAL-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS CAR-RENTAL-RECORD. 

01 CAR-RENTAL-RECORD PIC X(50). 

FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE PIC X(132), 

WORKING-STORAGE SECTION. 
01 PROGRAM-SWITCHES. 

05 WS-DATA-REMAINS-SWITCH PIC X(2) 
88 NO-MORE-RECORDS 

05 WS-CAR-MAKE-5WITCH PIC X(3) 



01 



VALUE SPACES. 
VALUE "NO", 
VALUE SPACES. 



PROC 


88 CAR-CODE-EXPANDED 






VALUE "YES". 1 


iRAM-SUBSCRIPTS. 




\ 




05 CAR-MAKE-SUBSCRIPT 


PIC 


99. \ 




DATE-WORK-AREA. 




\ 




05 TODAYS-YEAR 


PIC 


99. ^ 


\ 


05 TODAYS-MONTH 


PIC 


99. 


\ 


05 TODAYS-DAY 


PIC 


99. 


>— Definition of 88 lev 


WS-RECORD-IN. 






/ 


05 SOC-SEC-NUM 


PIC 


9(9). / 




05 CUST-NAME 


PIC 


X ( 25 ) . / 




05 DATE-RETURNED 


PIC 


9(6). / 




05 


CAR-TYPE 


PIC 


X. / 








88 COMPACT 






VALUE "C". 






88 INTERMEDIATE 






VALUE "I". 






88 FULL-SIZE 






VALUE "F". 





FIGURE 6.10 Car billing problem 



000630 






88 VALID-TYPE-CODE 






VALUES "C" "I" "F". 


000640 




05 


CAR-MAKE 


PIC 


X(3). 




000650 






88 VALID-MAKE-CODE 








000660 






VALUES ARE "BUI" 


'CAD 


"CHE" 


"CHR" "DAT" 


000670 






"FOR" 


' OLD 


"PON" 


"TOY" "VOL". 


000680 




05 


DAYS-RENTED 


PIC 


99. 




000690 




05 


MILES-DRIVEN 


PIC 


9(4). 




000700 
000710 


01 


WS- 


PRINT-LINE. \^^^ °^ '^'^"'^ ^' ^'"^'"^ character 


000720 




05 


FILLER \ 


PIC 


X(4) . 




000730 




05 


BOC-SEC-NUM ^ 


PIC 


999B99B9999.] 


000740 




05 


FILLER 


PIC 


X(4). 




000750 




05 


CUST-NAME 


PIC 


X ( 25 ) . 




000760 




05 


FILLER 


PIC 


X < 2 ) . 




000770 




05 


CAR-TYPE 


PIC 


X. 




000780 




05 


FILLER 


PIC 


X(4). 




000790 




05 


PRINT-CAR-MAKE 


PIC 


X(10). 




000800 




05 


FILLER 


PIC 


XX. 




000810 




05 


DAYS-RENTED 


PIC 


Z9. 




000820 




05 


FILLER 


PIC 


X(4). 




000830 




05 


MILES-DRIVEN 


PIC 


ZZZ9. 




000840 




05 


FILLER 


PIC 


X(4). 




000850 




05 


CUSTOMER-BILL 


PIC 


*$i*$9 


99. 


000860 
000861 




05 


FILLER 


PIC 


X ( 46 ) . 


/Table initialization 


000870 


01 


CAR 
05 


-MAKE- VALUES. 
FILLER 






000880 


PIC 


X(13> 


VALUE "BUIBUICK 


000890 




05 


FILLER 


PIC 


X(13) 


VALUE " CADCADALAC 


000900 




05 


FILLER 


PIC 


X(13) 


VALUE "CHECHEVROLET ". 


000910 




05 


FILLER 


PIC 


X( 13) 


VALUE "CHRCHRYSLER ". 


000920 




05 


FILLER 


PIC 


X(13) 


VALUE "DATDATSUN 


000930 




05 


FILLER 


PIC 


X(i3) 


VALUE "FORFORD 


000940 




05 


FILLER 


PIC 


X( 13) 


VALUE "OLDOLDSMOBILE". 


000950 




05 


FILLER 


PIC 


X(13) 


VALUE "PONPONTIAC 


000960 




05 


FILLER 


PIC 


X(13) 


VALUE "TOYTOYOTA 


000970 




05 


FILLER 


PIC 


X(13) 


VALUE "VOLVOLKSWAGON" . 


0009S0 








000990 


01 


CAR 


-MAKE-TABLE REDEFINES CAf 


^-MAKE-VALUES. 


001000 




05 


CAR-CODE-AND~VALUE |OCCU 


RS 10 TIMES 


J-,____^ 


001010 






10 CAR- CODE 


PIC 


X(3). 


^""-^ Definition of a table 


001020 






10 EXPANDED-CAR-MAKE 


PIC 


X(10) . 




001030 














001040 


01 


PAGE-AND-LINE-COUNTERS. 








001050 




05 


W3-PAGE-C0UNT 


PIC 


9(4) 


VALUE ZEROS. 


001060 




05 


WS- LINE-COUNT 


PIC 


9(4) 


VALUE 6. 


001070 














001080 


01 


BILLING-CONSTANTS. 








001090 




05 


WS-MILEAGE-RATE 


PIC 


9V99. 




001100 




05 


WS-DAILY-RATE 


PIC 


99V99. 




001110 




05 


WS-CUSTOMER-BILL 


PIC 


9(4)V99. 


001120 














001130 


01 


HEADING-LINE -ONE. 








001140 




05 


FILLER 


PIC 


X ( 75 ) 


VALUE SPACES. 


001150 




05 


FILLER 


PIC 


X(4) 


VALUE "PAGE". 


001160 




05 


WS-PAGE-PRINT 


PIC 


Z(4). 




001170 




05 


FILLER 


PIC 


X(49) 


VALUE SPACES. 


001180 














001190 


01 


HEADING-LINE-TWO. L 




001200 




05 


FILLER ^^ 


PIC 


X(25) 


VALUE SPACES. 


001210 




05 


T I TLE- 1 NFORMAT 1 0N^--~._^ 


PIC 


X ( 27 ) 




001220 






VALUE " JESS I CA ' S CAJ 


3 RENTAL AGENCY". 


001230 




05 


FILLER 


P>«^ 


^) 


VALUE SPACES, 


001240 
001250 




05 


TITLE-DATE. 

10 TITLE-MONTH 


PIC 


^i^J> Definition of multiple heading lines 


001260 






10 FILLER 


PIC 


y 


VALUE " / " . 


001270 






10 TITLE-DAY 


Pie' 


99. 




001280 






10 FILLER 


/fnc 


X 


VALUE " / " . 


001290 






10 TITLE-YEAR /^ 


PIC 


99. 




001300 




05 


FILLER /^ 


PIC 


X(70) 


VALUE SPACES. 


001310 














001320 


01 


HEADING-LINE-THREE. r 
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001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001445 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
0015B0 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
001780 
001790 
001800 
001810 
001820 
001830 
001 840 
001850 
001860 
001870 
001880 
001890 
001900 
001910 
001920 
001930 
001940 
001950 
001960 
001970 
001980 
001990 
002000 
002010 
002020 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 
ILLER 



PIC 


X(5) 


VALUE 


SPACES. 


PIC 


X(ll) 


VALUE 


" ACCT # 


PIC 


X(5) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"NAME". 


PIC 


X(19) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"TYPE". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"MAKE". 


PIC 


X(6) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"DAYS". 


PIC 


X<2) 


VALUE 


SPACES. 


PIC 


X(5) 


VALUE 


"MILES". 


PIC 


X(8) 


VALUE 


SPACES. 


PIC 


X(6) 


VALUE 


"AMOUNT" 


PIC 


X(45) 


VALUE 


SPACES. 



PROCEDURE DIVISION. 

100 --PREPARE-CAR-BILLING-REPORT. y 

I ACCEPT DATE-WORK-AREA FROM DATE.I 



'Obtains date of execution 



OPEN INPUT CAR-RENTAL-FILE 

OUTPUT PRINT-FILE. 
READ CAR-RENTAL-FILE INTO WS-RECORD-IN 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 
PERFORM 200-PROCESS-RECORDS 

UNTIL NO-MORE-RECORDS. 
CLOSE CAR-RENTAL-FILE 

PRINT-FILE. 
STOP RUN. 



'Compound test with 88 level entries 



200-PROCESS-RECORDS . 



IF VALID-TYPE-CODE AMD VALID-MAKE-CODE | 
PERFORM 300-COMPUTE-CAR-BILL 
PERFORM 400-WRITE-DETAIL-LINE 



ELSE 




Use of qualification 

PE OR CAR MAKE ' 



D I S PLAY "ERROR IN INCOMING CAR 
ICUST-NAME OF WS-RECORD-IN. 



READ CAR-RENTAL-FILE INTO WS-RECORD-IN 

AT END MOVE "NO" TO WB-DATA-REMAINS-SWITCH. 



300 



-COMPUTE-CAR-BILL. 






IF 


COMPACT 










MOVE . 1 2 


TO WS- 


MI LEASE- RATE 






MOVE 11. 


30 TO WS-DAILY-RATE 




ELSE 










IF INTERMEDIATE 








MOVE 


. 1 4 TC 


WS-MILEA6E- 


RATE 




MOVE 


12.00 


TO WS~DAILY- 


RATE 




ELSE 










MOVE 


. 16 TC 


WS-MILEAGE- 


RATE 




MOVE 


13.00 


TO WS-DAILY- 


RATE. 



-Nested IF determines 
appropriate rate 



COMPUTE WB-CUBTOMER-BILL ROUNDED 



miles-driven of ws-reqord-in * ws-mileage-rate 
+ days-rente d of ws-record-in ♦ wb-daily-rate 
Ion size errorK \ 

display "re?;&]lying field too small for amount due" 

CUST-NAME OF WSc:j;?EcbRD-IN. 

^ — ROUNDED and SIZE ERROR options 



400-WRITE-DETAIL-LINE. 

IF WS-LINE-COUNT > 5 

PERFORM 600-WRITE-HEADING. 
MOVE SPACES TO WS~PRINT-LINE. 
MOVE CORRESPONDING WS-RECORDrlN TO WS-PRINT-LINE. 



INSPECT statement inserts hyphens 
in social security number 



INSPECT SOC-SEC-NUM OF WS-PRINT-LINE 
REPLACING ALL " " BY "-". 



MOVE WS-CUSTOMER-BILL TO CUSTOMER-BILL. 



MOVE "NO" TO WB-CAR-MAKE~SWITCH. 



^Use of PERFORM VARYING 



PERFORM 500~EXPAND-CAR-MAKE-CODE 

VARYING CAR-MAKE-SUBSCRIPT FROM 1 BY 1 
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002030 UNTIL CAR-MAKE-SUBSCRIPT > 10 

002040 OR CAR-CODE-EXPANDED. 

002050 

002060 WRITE PRINT-LINE FROM WS-PR I NT-LINE 

002070 AFTER ADVANCING 2 LINES. 

002080 ADD 1 TO WS-LINE-COUNT. 

002090 yTaUe lookup is controlled by PERFORM VARYING 

002 1 00 |500-EXPAND-CAR-MAKE-CODE7r 

002110 IF CAR-MAKE = CAR-CODE (CAR-MAKE-SUBSCRIPT) 

002120 MOVE EXPANDED-CAR-MAKE (CAR-MAKE-SUBSCRIPT) 

002130 TO PRINT-CAR-MAKE 

002140 MOVE "YES" TO WS-CAR-MAKE-SWITCH. 

002150 

002160 600-WRITE-HEADIN6. 

002 1 70 ADD 1 TO WS-PAGE-COUNT. ^Resets line count 

002180 I MOVE 1 TO yS-LINE-COUNT-h -"^ 

002190 MOVE WS-PAGE-COUNT TO WS-PAGE-PRINT. 

002200 WRITE PRINT-LINE FROM HEADING-LINE-ONE 

002210 AFTER ADVANCING PAGE. 

002220 MOVE TODAYS-DAY TO TITLE-DAY. 

002230 MOVE TODAYS-MONTH TO TITLE-MONTH. 

002240 MOVE TODAYS-YEAR TO TITLE-YEAR. 

002250 WRITE PRINT-LINE FROM HEADING-LINE-TWO 

002260 AFTER ADVANCING 2 LINES. 

002270 WRITE PRINT-LINE FROM HEADING-LINE-THREE 

002280 AFTER ADVANCING 2 LINES. 

002290 

FIGURE 6.10 Continued 



The definition of WS-RECORD-IN includes 88-level entries for botli CAR- 
TYPE and CAR-IVIAKE, with several codes grouped under the same condi- 
tion name. This greatly simplifies the IF statement of line 1620, which 
checks for valid codes. 

A table of car makes is established in lines 870 through 1020. Values 
are assigned to successive locations in the 01 entry CAR-MAKE-VALUES, 
after which the table itself is established through the OCCURS and REDE- 
FINES clauses. The table lookup routine is controlled by the PERFORM 
VARYING statement of lines 2010-2040. The paragraph 500-EXPAND- 
CAR-MAKE-CODE is entered a maximum of 10 times. It checks if the in- 
coming code matches the current entry in a table. If a match is found, the 
corresponding expanded value is moved to a print line and the lookup is 
terminated. Note well how WS-CAR-MAKE-SWITCH is set to "NO" immedi- 
ately before the PERFORM statement in line 2000. 

A nested IF statement (lines 1730-1820) determines appropriate values 
for WS-MILEAGE-RATE and WS-DAI LY-RATE, which are referenced in 
the COMPUTE of lines 1 840-1 890. Observe the use of both ROUNDED and 
SIZE ERROR clauses. 

WS-LINE-COUNT is established in Working-Storage (line 1060) to keep 
control of the number of lines per page. This value is checked prior to writ- 
ing a detail line in lines 1920-1930. If it exceeds 5 (because 5 lines are re- 
quired per page), then the paragraph 600-WRITE-HEADING is invoked. This 
in turn resets WS-LINE-COUNT to one, as well as writes a three-line heading 
on a new page. Note well that HEADING-LINE-TWO contains the date of 
execution, which was obtained from the ACCEPT statement of line 1500. 

Test data are shown in Figure 6.1 1 and corresponding output in Figure 
6.12. Error messages for the invalid records of Figure 6.1 1 were displayed on 
the CRT. 
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111,111 1 11 ADAMS. JOHN 
2 >,?222222B0R0W . JEFF 
3j3333333LEE, BENJAMIN 
4-44444444M ILGR0I1 , MAR 1 ON 
555555555GRAUER! SAM 
666666666SUGRUE^ PAUL 
777 777777CRAWF0RD , MARSHAL 
88Si38S8SaG00DMAN, NEIL 
999999999GULF MAN , STEVEN 



0201B1CTOY0510CD0 
0209S1CDAT 10(8986 
013181 1 CHE010035 
02083 IFCHEB 10042 
020481 FFOR020345 
0209eiFPLY04060lT-'"va''d car make 
0208B1XCAD0305SS_}— Invalid car type 
020131 CDAT0 10014 
02068 1 1 PON0605 1 



FIGURE 6.11 Test data for car billing problem 



PAGE 2 
JESSICA'S CAR RENTAL AGENCY 04/24/81 
NAME TYPE MAKE DAYS MILES AMOUNT 

GOODMAN > NEIL C DATSUN 1 14 $12.68 

GULFMAN, STEVEN I PONTIAC 6 510 *143.40 



A OCT # 
888-8e--B8S8 
999-99-9999 



JESSICA'S CAR RENTAL AGENCY 04/24/81 



ACCT # 
111-11-1111 

333-33-3333 
444-44-4444 
555-55-5555 



NAME 
ADAMS. JOHN 
BOROW. JEFF 
LEE. BENJAMIN 
MILGROM, MARION 
GRAUER. SAM 



PAGE 



TYPE 


MAKE 


DAYS 


MILES 


C 


TOYOTA 


5 


1000 


C 


DATSUN 


10 


986 


I 


CHEVROLET 


1 


35 


F 


CHEVROLET 


1 


42 


F 


FORD 




345 



1 

AMOUNT 
$175.00 
$228.32 
$16.90 

$19.72 
$81.20 



FIGURE 6.12 Output of car billing problem. (Note: the incoming records for Sugrue and Crawford 
were flagged in a DISPLAY statement due to invalid data, and consequently do not appear in the 
printed report.) 



TRUE/FALSE 

1. Either OF or IN can qualify a data name. 

2. ROUNDED and SIZE ERROR are mandatory in the COMPUTE statement. 

3. For the CORRESPONDING option to work, both data names must be at the same 
level. 

4. Qualification over a single level will always remove ambiguity of data names. 

5. The same entry may contain both an OCCURS clause and a PICTURE clause. 

6. The same entry may not have both an OCCURS clause and a VALUE clause. 

7. A single statement cannot have two IFs and one ELSE. 

8. Condition names are also known as 77-level entries. 

9. The same PERFORM statement can be used to initialize and increment a subscript. 
10. The condition portion of an IF may be a compound condition. 
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EXERCISES 

1. How many storage positions are allocated for each of the following table definitions? 
Show an appropriate schematic indicating storage assignment for each table. 

(a) 01 STATE-TABLE. 

05 STATE-NAME OCCURS 50 TIMES PICX(15). 

05 STATE-POPULATION OCCURS 50 TIMES PIC 9(8). 

(b) 01 STATE-TABLE. 

05 NAME-POPULATION OCCURS 50 TIMES. 

10 STATE-NAME PICX(15). 

10 STATE-POPULATION PIC 9(8). 

2. Company XYZ has four corporate functions: manufacturing, marketing, financial, and 
administrative. Each function in turn has several departments as shown: 



Function 



Departments 



Manufacturing 
Marketing 
Financial 
Administrative 



10,12,16,17-29,30,41,56 
6-9, 15,31-33 
60-62, 75 
1-4,78 



Establish condition name entries so that given a value of EMPLOYEE-DEPARTMENT 
one can determine function. Include an 88-level entry, VALID-CODES, to verify that 
the incoming department is indeed a valid department (any department number not 
shown is invalid). 



3. Given the code: 



PROCEDURE DIVISION. 
PERFORM SEC-A. 
PERFORM PAR-C THRU PAR-E. 
MOVE 1 TON. 

PERFORM PAR-G UNTIL N > 3. 
STOP RUN. 



SEC-A SECTION. 

ADD 1 TO X. 

ADD 1 TO Y. 

ADD 1 TOZ. 
PAR-B. 

ADD 2 TO X. 
PAR-C. 

ADD 10TOX. 
PAR-D. 

ADD 10TO Y, 

ADD 20 TOZ. 
PAR-E. 

EXIT. 
PAR-F. 

MOVE 2 TON. 
PAR-G. 

ADD 1 TO N. 

ADD 5 TO X. 
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(a) How many times is each paragraph executed? 

(b) What is the final value of X, Y, and Z? (Assume they were all initialized to 0.) 

(c) What would happen if the statement ADD 1 TO N were removed from PAR-G? 

4. Given the following IF statement: 

IF A = B OR A = C 

PERFORM FIRST-ROUTINE 
ELSE 

IF A > 10AIMDB > 10ORC = 10 

PERFORM SECOND-ROUTINE 
ELSE 

PERFORM THIRD-ROUTINE. 

For each set of values, indicate which routine will be performed. 



(a) A = 


50, 


B = 5, 


C = 5 


(b)A = 


50, 


B = 40, 


C = 40 


(c)A = 


50, 


B = 50, 


C = 50 


(d)A = 


50, 


B = 5, 


C = 10 


(e)A = 


0, 


B = 0, 


C = 


(f)A = 


1, 


B = 2, 


C = 3 



5. Given the following Data Division entries and the Procedure Division statement MOVE 
CORRESPONDING RECORD-ONE TO RECORD-TWO: 



01 



01 



REi 


CORD-ONE. 




05 


FIELD-A 


PICX(4). 


05 


FIELD-B 


PICX(4). 


05 


FIELD-C. 






10 C-ONE 


PICX(4). 




10 C-TWO 


PICX(4). 


05 


FIELD-D. 






10 D-ONE 


PICX(6). 




10 D-TWO 


PICX(6). 




10 D-THREE 


PICX(6). 


RECORD-TWO. 




15 


FIELD-E 


PICX(8). 


15 


FIELD-D 


PICXdS) 


15 


FIELD-C 


PICX(8). 


15 


FIELD-B 


PiCX(2). 


15 


FIELD-A 


PICX(4). 


15 


FIELD-F 


PICX(4). 


15 


FfELD-G 


PICX(4J. 


15 


FIELD-H 


PICX(4). 



Answer true or false (refer to the receiving field) : 

(a) The value of FIELD-E is unchanged. 

(b) The value of FIELD-D is unchanged. 

(c) No moves at ail will take place since the corresponding level numbers are different 
in both records. 

(d) The value of FIELD-A will be unchanged since it is the first entry in RECORD- 
ONE but the fifth entry in RECORD-TWO. 

(e) The value of FIELD-B will be unchanged since the length is different in both 
records. 
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6. Consider the following code, intended to calculate an Individual's age from a stored 
birth date and the date of execution. 

01 EMPLOYEE-RECORD. 
05 EMP-BIRTH-DATE. 





10 BIRTH-MONTH 


PIC 99, 




10 BIRTH-YEAR 


PIC 99, 


01 DATE-WORK-AREA. 




05 


TODAYS-MONTH 


PIC 99, 


05 


TODAYS-DAY 


PIC 99 


05 


TODAYS-YEAR 


PIC 99, 



PROCEDURE DIVISION. 

ACCEPT DATE-WORK-AREA FROM DATE. 



COMPUTE EMPLOYEE-AGE = TODAYS-YEAR - BIRTH-YEAR 
+ TODAYS-MONTH - BIRTH-MONTH. 

There are two distinct reasons why the code will not work as intended. Find and cor- 
rect the errors. (Hint: It may be helpful to plug in data and play computer.) 



PROJECTS 

1. Write a program to print a list of patients seen by a doctor's office for one day. 
A computerized record has been prepared for each patient with the following format: 



Columns Field Picture 



1-15 


LAST-NAME 


X(15) 


16-25 


FIRST-NAME 


X(10) 


26-50 


REASON-FOR-SEEING-DOCTOR 


X(25) 


51-55 


AMOUNT-PAID 


9(3)V99 



The following items should be considered in developing your program: 

(a) The amount paid has spaces in the high-order positions. Use the INSPECT verb 
to convert the leading spaces to zeros. 

(b) Use the same data names in the input file record layout as in the print file lay- 
out. Use one MOVE CORRESPONDING to move the input fields to the print 
line. 

(c) Obtain today's date through an ACCEPT statement and move it to a heading 
line. 

(d) Keep a count of the number of patients seen and a total of the amount paid. 
Print these on the total line. 

(e) Use the COMPUTE verb with the ROUNDED option to calculate the cost of 
an average visit (i.e., the TOTAL PAID divided by the number of patients). 

(f ) Use double spacing before each detail line. Allow only five detail lines per page. 

(g) Develop your own test data in a separate file. 

2. A television store in a large city guarantees that its antennas will stay on resi- 
dents' roofs at least six years or else they will reinstall the antenna free. Customer records 
have been entered into a data file with the following information: 



Columns 


Field 


Picture 


1-25 


NAME 


X(25) 


26-50 


ADDRESS 


X(25) 


51-52 


YEAR-OF-INSTALLATION 


99 


53-54 


MONTH-OF-INSTALLATION 


99 


58-60 


TYPE-OF-ANTENNA 


XXX 



Write a program that will print only the names of customers whose antennas were in- 
stalled within the last six years. Put an asterisk next to the name of any customer whose 
antenna Is at least four years old. Define your input record as PIC X(60) and your print 
record as X(132). Define a work record for the input file in Working-Storage and three 
work records for the print file (for heading, detail, and total lines). Keep a count of the 
number of guarantees in effect. Use READ INTO and WRITE FROM. Use duplicate 
names in at least three fields of the detail print line and input records in Working-Storage. 
Use a MOVE CORRESPONDING when moving the input fields to the print record. Use 
an 88-level entry to define a switch to determine end of file. 
Develop your own test data. 
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OVERVIEW As a beginning programmer, your objective should simply be a working pro- 
gram. As a professional, your objective is enlarged, namely, a program which 
is easily read and maintained by someone other than yourself. A good pro- 
gram must also be tested under a variety of conditions, including obviously 
improper data, and should include programming checks to flag poten- 
tially invalid transactions. In short, while the beginner is concerned with 
merely translating a working flowchart or pseudocode into COBOL, the 
professional requires a better flowchart, straightforward logic, easy-to-read 
COBOL code, and a well-tested program. 

Over time, an individual develops a collection of techniques, i.e., a 
style, to accomplish his or her objectives. Most books omit programming 
style entirely, or at best devote only a few pages to the subject. We believe 
the topic is so important that it merits an entire chapter. We have found that 
an awareness of "style" is highly beneficial to student and professional alike. 
Individuals conscious of style tend to write programs that are easier to read 
and maintain, easier to debug, and more apt to be correct. 

This chapter is divided into two main sections: coding standards and 
structured programming. The first deals with "dos and don'ts" of COBOL, 
and contains a set of 12 guidelines for writing better programs. The second 
section defines structured programming, and emphasizes the functional 
nature of COBOL paragraphs. The unit concludes with a substantial modifi- 
cation of the payroll program of Chapter 4, with special attention to pro- 
gramming style. 



CODING 
STANDARDS 



In spite of what you may think of the COBOL compiler, COBOL is a rela- 
tively free-form language. There is considerable flexibility as to starting col- 
umn for most entries (i.e., in or beyond column 12). The rules for paragraph 
and data names make for easy -to -write, but not necessarily easy-to-read 
programs. 

In a business situation, it is absolutely essential that programs be well 
documented, as the person who writes a program today may not be here 
tomorrow. Indeed, continuing success depends on someone other than the 
author being able to maintain a program. Accordingly, most installations 
(both large and small) impose a set of coding standards, which go beyond the 
requirements of COBOL. Such standards are optional for the student. How- 
ever, they are typical of what is required in the real world. 

Some of the guidelines we discuss are purely cosmetic and are con- 
cerned only with the arrangement of the COBOL code. Indentation, spacing, 
avoiding commas, and so on fall into this class. Other guidelines suggest par- 
ticular COBOL features to use and/or avoid; for example, performing para- 
graphs rather than sections, using 88-level entries, avoiding 77-level entries, 
and so on. 

The suggestions in this section should be viewed as guidelines rather 
than rigid standards. Consequently, the reader is not necessarily expected to 
agree with all items. If you have sound reason for objecting to an element of 
the style presented here, so be it. You are on your way to developing your 
own. 

Let us list the elements of programming style which we will consider: 



• Choose meaningful names 

• Avoid commas 
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• Use appropriate comments 

• Eliminate 7 7 -level entries 

• Space attractively 

• Indent 

• Avoid constants 

• Avoid literals 

• Keep it simple 

• Perform paragraphs, not sections 

• Restrict subscripts to a single use 

• Use 88-level entries 



CHOOSE The COBOL compiler is very lenient with its rules for programmer-chosen 
MEANINGFUL names. Specifically, a user-defined word may not exceed 30 characters, or 
NAMES begin or end with a hyphen. Valid characters for inclusion in a user-defined 
word are A through Z, through 9, and the hyphen. File and data names 
must contain at least one alphabetic character, whereas paragraph and sec- 
tion names may be all numeric. It is strongly recommended that these rules 
be amended as follows; 

1. Data names should be mnemonically significant. Although COBOL 
allows up to 30 characters, two- and three-character cryptic names 
are used too frequently. It is impossible for the maintenance pro- 
grammer, or even the original author, to determine the meaning of 
abbreviated data names. On first reading, it may seem that this 
guideline adds unnecessarily to the burden of "writer's cramp". Ex- 
perience has shown, however, that meaningful data names signifi- 
cantly ease the job of the maintenance programmer. Some examples: 

Poor Choice: 

SWITCH-ONE 

TOTAL-1 

TRANS-ID 



Improved Choice: 

END-OF-TRAIMSACTION-FILE-SWITCH 

TOTAL-EMPLOYEE-GROSS-PAY 

TRANSACTION-ID-NUMBER 

2. All data names within the same 01 record should have a common 
two- or three-letter prefix. The utility of this guideline becomes 
apparent in the Procedure Division if it is necessary to refer back to 
the definition of a data name. Some examples: 

Poor Choice: 

01 EMPLOYEE-RECORD. 

05 SOC-SEC-NUMBER PIC 9(9). 

05 NAME PICX(20). 

05 ADDRESS PIC X(40). 
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Improved Choice: 



01 EMPLOYEE-RECORD. 

05 EMP-SOC-SEC-NUMBER 
05 EMP-NAME 
05 EMP-ADDRESS 



PIC 9(9). 
PIC X(20). 
PIC X(40). 



3. Paragraph names should be functional and reflect the single pur- 
pose of the paragraph. A paragraph name should consist of a verb, 
an adjective or two, and an object, e.g., READ-TRANSACTION- 
FILE, ADD-NEW-RECORD, and so on. If a paragraph cannot be 
named in this manner, it is probably not functional, and considera- 
tion should be given to redesigning the program and/or paragraph. 
Paragraph names should also be sequenced to locate paragraphs 
quickly in the Procedure Division. There is, however, considerable 
disagreement on just what sequencing scheme to use; e.g., all num- 
bers, a single letter followed by numbers, etc. This author will make 
no strong argument for one scheme over another, other than to in- 
sist that a consistent sequencing rule be followed. Some examples: 

Poor Choice: 

0005-MAINLINE 

A010-READ-AND-WRITE 

READ-TRANSACTION-FILE 

Improved Choice: 

A01 0-WR ITE-N EW-MASTER-R ECORD 

1000-PRODUCE-ERROR-REPORT 

2000-READ-TRANSACTION-FILE 



AVOID COMMAS 



The compiler treats a comma as "noise"; i.e., a comma has no effect on the 
generated code. Many programmers have acquured the habit of inserting 
commas to increase readabiUty. While this works rather well with prose, it can 
have just the opposite effect in COBOL. This is because of blurred print 
chains which make it difficult to distinguish a comma from a period. As we 
have already seen, the presence or absence of a period is critical, and the in- 
ability to distinguish a period from a comma becomes rather annoying; con- 
sequently, try avoiding commas altogether. 



USE 

APPROPRIATE 

COMMENTS 



Although there is growing disillusionment with comments in COBOL pro- 
grams, good code does not eliminate their necessity. As Yourdont has so 
eloquently stated, "no programmer, no matter how wise, no matter how 
experienced, no matter how hard pressed for time, no matter how well 
intentioned, should be forgiven an uncommented and undocumented pro- 
gram." The mere presence of comments, however, does not insure a well- 
documented program, and poor comments are sometimes worse than no 



TEdward Yourdon, Techniques of Program Structure and Design, Prentice-Hall, 
Inc., 1975. 
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comments at all. The most common fault is redundance with the source 
code. For example, in the code: 

*** CALCULATE NET PAY 

COMPUTE NET-PAY = GROSS-PAY - FEDERAL-TAX - VOLUNTARY-DEDUCTION. 

the comment does not add to the readability of the program. It might even 
be said to detract from legibility because it breaks the logical flow as one is 
reading. Worse than redundant, comments may be obsolete or incorrect; i.e., 
inconsistent with the associated code. This happens if program statements 
are changed during debugging or maintenance, and the comments are not 
correspondingly altered. The compiler, unfortunately, does not validate com- 
ments. Comments may also be correct, but incomplete and hence misleading. 
In sum, the presence of comments is essential, but great care, more than is 
commonly exercised, should be applied in developing and maintaining com- 
ments in a program. 

As a general rule, comments should be provided whenever you are do- 
ing something which is not immediately obvious to another person. When 
considering a comment, imagine you are turning the program over for main- 
tenance, and insert comments whenever you would pause to explain a fea- 
ture in your program. Do assume, however, that the maintenance programmer 
is as competent in COBOL as you are. Thus, comments should be directed to 
why you are doing something, rather than to what you are doing. 

ELIMINATE 77-level entries were originally conceived as being independent items with no 
77-LEVEL relationship to one another. In reality few, if any, data names are truly 
ENTRIES independent, and the alternative is to group related entries under a common 
01 description in Working-Storage. Consider: 



Poor Code: 



77 


COUNTER-ONE 


PIC 9(3) 


VALUE ZEROS 


77 


COUNTER-TWO 


PIC 9(3) 


VALUE ZEROS 


77 


COUNTER-THREE 


PIC 9(3) 


VALUE ZEROS 



Improved Code: 



01 RECORD-COUNTERS. 

05 NUMBER-OF-RECORDS-READ 
05 NUMBER-OF-GOOD-RECORDS 
05 NUMBER-OF-BAD-RECORDS 



PIC 9(3) 


VALUE ZEROS 


PIC 9(3) 


VALUE ZEROS. 


PIC 9(3) 


VALUE ZEROS. 



The improved code has given the three counters more descriptive names 
which reflect both similarities and differences among the related items. 



SPACE 
ATTRACTIVELY 



The adoption of various spacing conventions can go a long way toward im- 
proving the appearance and legibility of a program. This author believes very 
strongly in the insertion of blank lines throughout a program to highlight 
important statements. Specific suggestions include a blank line before all 
paragraph and/or section headers, before all FDs and/or 01 entries, and even 
before specific verbs, e.g., IF. 
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The reader can also cause various portions of a listing to begin on a new 
page, e.g., division headers. This is accomplished by putting a slash in column 
7 of a source statement. 

Vertical spacing is also important. The Data Division, for example, is 
enhanced significantly by beginning all picture clauses in the same column. 



INDENT Virtually no one will argue against indenting successive level numbers within 
a record description in the Data Division. Why then do so few employ in- 
dentation in the Procedure Division? Consider: 

Poor Code: 

PERFORM INITIALIZE-TABLE VARYING LOCATION-SUB FROM 1 
BY 1 UNTIL LOCATION-SUB > 3. 

READ EMPLOYEE-FILE AT END MOVE "YES" TO END-EMPLOYEE-SWITCH. 

WRITE PRINT-LINE AFTER ADVANCING PAGE. 

IF EMPLOYEE-AGE > 65 MOVE EMP-NAME TO 
PRINT-RETIREMENT-NAME, ADD 1 TO 
NUMBER-OF-RETIREES, PERFORM WRITE-RETIREE-REPORT. 



Improved Code: 

PERFORM INITIALIZE-TABLE 

VARYING LOCATION-SUB FROM 1 BY 1 
UNTIL LOCATION-SUB > 3. 

READ EMPLOYEE-FILE 

AT END MOVE "YES" TO END-EMPLOYEE-SWITCH. 

WRITE PRINT-LINE 

AFTER ADVANCING PAGE. 

IF EMPLOYEE-AGE > 65 

MOVE EMP-NAME TO PRINT-RETIREMENT-NAME 
ADD 1 TO NUMBER-OF-RETIREES 
PERFORM WRITE-RETIREE-REPORT. 

As can be seen from the improved code, subservient clauses should al- 
ways be indented under the main verbs. The legibility of PERFORM, for 
example, is improved immeasurably by indenting VARYING under PER- 
FORM, and UNTIL under VARYING. Other examples in the same vein 
include : 

AFTER (BEFORE) ADVANCING under WRITE, 
AT END under READ, 
SIZE ERROR under COMPUTE, 
and GIVINGunderADD, MULTIPLY, SUBTRACT, and DIVIDE. 

Indentation should also be consistent with compiler interpretation. The 
IF statement, for example, is terminated by a period and the indentation 
should reflect this. The condition portion is written on a line by itself in the 
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preceding improved code with the subservient statements (MOVE, ADD, and 
PERFORM) indented under it. 

The nested IF statement is worthy of special mention. The compiler 
does not interpret ELSE clauses as the programmer writes them but asso- 
ciates the ELSE clause with the closest unpaired previous IF. Consider: 

Poor Code: 

IF CD-SEX IS EQUAL TO "Wl" 

IF CD-AGE IS GREATER THAN 30 

MOVE CD-NAME TO MALE-OVER-30 
ADD 1 TO NUMBER-OUALIFIED-MALES 

ELSE MOVE CD-NAME TO PRT-NAME 

ADD 1 TO MALE-UNDER-30. 

The indentation implies that CD-NAME will be moved to PRT-NAME if 
CD-SEX is not equal to "M". This is not the compiler interpretation. The 
ELSE clause is associated with the closest previous IF which is not already 
paired with another ELSE. Therefore, the compiler will move CD-NAME to 
PRT-NAME if CD-SEX equals "M" but CD-AGE is not greater than 30. 

Nested IFs should be coded as follows: 

1. Indent successive IFs four columns. 

2. Put the word ELSE on a line by itself, and directly under its associ- 
ated IF. 

3. Indent detail lines for both IF and ELSE four columns. 

The previous nested IF statement is rewritten to reflect these guidelines: 
Improved Code: 

IF CD-SEX IS EQUAL TO "M" 

IF CD-AGE IS GREATER THAN 30 

MOVE CD-NAME TO MALE-OVER-30 

ADD 1 TO NUMBER-QUALIFIED-MALES 
ELSE 

MOVE CD-NAME TO PRT-NAME 

ADD 1 TO MALE-UNDER-30. 



AVOID A significant portion of maintenance programming (and headaches) could 
CONSTANTS probably be avoided if the original program were written with an eye toward 
future change. Consider: 

Poor Code: 

05 STATE-TABLE OCCURS 50 TIMES. 

10 STATE-POPULATION PIC 9(8). 

10 STATE-NAME PICX(15). 

PERFORM COMPUTE-STATE-TOTALS 

VARYING STATE-SUBSCRIPT FROM 1 BY 1 
UNTIL STATE-SUBSCRIPT > 50. 

COMPUTE AVERAGE-STATE-POPULATION = TOTAL-POPULATION / 50. 
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Improved Code: 



05 NUMBER-OF-STATES PIC 99 VALUE 50. 



05 STATE-TABLE OCCURS 55 TIMES. 
10 STATE-POPULATION PIC 9(8). 
10 STATE-NAME PICX(15) 



PERFORM COMPUTE-STATE-TOTALS 

VARYING STATE-SUBSCRIPT FROM 1 BY 1 

UNTIL STATE-SUBSCRIPT > NUMBER-OF-STATES. 

COMPUTE AVERAGE-STATE-POPULATION = 

TOTAL-POPULATION / NUMBER-OF-STATES. 

Admittedly, it has been some 20 years since Alaska and Hawaii became 
states. Nevertheless, if and when another state is admitted, the improved 
code is decidedly easier to modify. All that needs to be changed is the value 
of NUMBER-OF-STATES. The poor code, however, requires changes in sev- 
eral places; specifically, the constant 50 has to be changed to 51 three times. 
The possibility of error is much greater, as the programmer is required to 
track down all instances where the value changes. Constants do not appear 
on a cross reference listing. 

A second benefit of avoiding constants in favor of variable data names 
is increased readability. Consider: 

Poor Code: 

ADD .04 .04 GIVING SALES-TAX-PERCENTAGE. 

Improved Code: 

ADD NEW-YORK-STATE-SALES-TAX 
NEW-YOR K-CITY-SA LES-TAX 
GIVING SALES-TAX-PERCENTAGE. 

The reader is hard pressed to determine the meaning of either occur- 
rence of .04 in the first example, whereas the meaning is obvious in the 
second example. True, the latter requires definition of additional data 
names in the Data Division and extra pencil strokes in the Procedure Di- 
vision. This is a small price to pay, however, for the increased legibility and 
ease of maintenance. 



AVOID LITERALS The constant (literal) portion of a print line should be defined in Working- 
Storage, rather than being moved to the print line in the Procedure Division. 
Consider: 

Poor Code: 

- Hyphen required to continue non-numeric literal 

MOVE "STUDENT-NAME SOCSECNUM CREDITS TUITION 

"SCHOLARSHIP FEES" TO PRINT-LINE. 
WRITE PRINT-LINE. 
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Improved Code: 






01 HEADING-LINE. 






05 


FILLER 


PICX(12) 


VALUE "STUDENT NAME 


05 


FILLER 


PICXdO) 


VALUE SPACES. 


05 


FILLER 


PICX(II) 


VALUE "SOC SEC NUIVl". 


05 


FILLER 


PICX(2) 


VALUE SPACES. 


05 


FILLER 


PICX(7) 


VALUE "CREDITS". 


05 


FILLER 


PICX(2) 


VALUE SPACES. 


05 


FILLER 


PICX(7) 


VALUE "TUITION". 


05 


FILLER 


PICX(3) 


VALUE SPACES. 


05 


FILLER 


picxni) 


VALUE "SCHOLARSHIP". 


05 


FILLER 


PICX(2) 


VALUE SPACES. 


05 


FILLER 


PICX(4) 


VALUE "FEES". 


05 


FILLER 


PICX(61) 


VALUE SPACES. 
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WRITE PRINT-LINE FROM HEADING-LINE. 

The improved code may appear unnecessarily long in contrast to the 
poor code. However, it is an unwritten law that users will change column 
headings and /or spacing at least twice before being satisfied. Such changes 
are easily accommodated in the improved code, but often tedious in the 
alternative solution. Assume, for example, that four spaces Eire required be- 
tween CREDITS and TUITION, rather than the two that are there now. 
Modification of the poor code requires that both lines in the MOVE state- 
ment be completely rewritten, whereas only a single PICTURE clause need 
be changed in the improved version. 



KEEP IT Procedure Division code should be kept as straightforward as possible, and 
SIMPLE efforts at being cute or fancy should be discouraged. Beginning programmers, 
especially, are notorious for trying to impress their peers with 'clever' code, 
which too often confuses the issue. 

Consider the following payroll specification for hourly employees: all 
employees receive straight time for the first 40 hours worked, time and a 
half for the next 8 hours, and double time for any hours over 48. For ex- 
ample, an employee who worked 50 hours with an hourly rate of $5.00 
should receive $280.00 (40 hours at $5.00, 8 hours at $7.50, and 2 hours at 
$10.00). 

The following, logically equivalent IP statements, are partial solutions: 



IF HOURS-WORKED > 48 
COMPUTE GROSS-PAY 
= 40 • HOURLY-RATE 
+ 8 * HOURLY-RATE * 1.5 
+ (HOURS-WORKED -48) * HOURLY-RATE 



2. 



IF HOURS-WORKED > 48 
COMPUTE GROSS-PAY 
= 52 * HOURLY-RATE 
+ (HOURS-WORKED - 48) 



HOURLY-RATE » 2. 



The first statement is a line longer, but is the preferred solution as it 
more closely represents the physical problem. It is easy to see that individu- 
als working more than 48 hours receive straight time for the first 40 hours, 
time and a half for the next 8 hours, and double time for any hours over 48. 
Although the second statement produces equivalent results, it deviates sig- 
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nificantly from the physical situation. A maintenance programmer would be 
hard pressed to understand the meaning of the constant 52. The second 
statement may be more elegant in a mathematical sense, but it is certainly 
undesirable in a commercial environment. 



PERFORM The motivation behind this guideline is best demonstrated by example. 
PARAGRAPHS, Given the following Procedure Division, what will be the final value of X? 
NOT SECTIONS 

PROCEDURE DIVISION. 
MAINLINE SECTION. 

MOVE ZEROS TO X. 

PERFORM A. 

PERFORM B. 

PERFORM C. 

PERFORM D. 

STOP RUN. 
A SECTION. 

ADD 1 TOX. 



B. 



ADD 1 TOX. 



C. 



ADD 1 TOX. 



D. 

ADD 1 TO X. 

The correct answer is 7 , not 4. A common error made by many pro- 
grammers is a misinterpretation of the statement PERFORM A. Since A is a 
section and not a paragraph, the statement PERFORM A invokes every para- 
graph in that section, namely, paragraphs B, C, and D, in addition to the un- 
named paragraph immediately after the section header. 

The PERFORM statement specifies a procedure, which can be either a 
section or a paragraph. Unfortunately, there is no way of telling the nature 
of the procedure from the PERFORM statement itself. Consequently, when 
a section is specified as a procedure, the unfortunate result is too often exe- 
cution of unintended code. Can't happen? Did you correctly compute the 
value of X? 



RESTRICT 

SUBSCRIPTS 

TO A SINGLE USE 



Data names defined as switches and/or subscripts should be restricted to a 
single use. Consider; 

Poor Code: 



77 SUBSCRIPT 



PIC 9(4). 



PERFORM COMPUTE-SALARY-HISTORY 
VARYING SUBSCRIPT FROM 1 BY 1 
UNTIL SUBSCRIPT > 3. 



PERFORM FIND-MATCHING-TITLE 

VARYING SUBSCRIPT FROM 1 BY 1 
UNTIL SUBSCRIPT > 100. 
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Improved Code: 

01 PROGRAM-SUBSCRIPTS. 

05 TITLE-SUBSCRIPT PIC 9(4). 

05 SALARY-SUBSCRIPT PIC 9(4). 

PERFORM COMPUTE-SALARY-HISTORY 

VARYING SALARY-SUBSCRIPT FROM 1 BY 1 
UNTIL SALARY-SUBSCRIPT > 3. 

PERFORM FIND-MATCHING-TITLE 

VARYING TITLE-SUBSCRIPT FROM 1 BY 1 
UNTIL TITLE-SUBSCRIPT > 100. 

At the very least, the improved code offers superior documentation. 
By restricting data names to a single use, one automatically avoids such non- 
descript entries as SUBSCRIPT. Of greater impact, the improved code is 
more apt to be correct in that a given data name is modified or tested in 
fewer places within a program. Finally, if bugs do occur, the final values of 
the unique data names (e.g., TITLE-SUBSCRIPT and SALARY-SUBSCRIPT) 
will be of much greater use than the single value of SUBSCRIPT. 



USE 88-LEVEL Condition names (88-level entries) are useful to improve documentation. 
ENTRIES They facilitate program change and can reduce the need for compound con- 
ditions in an IF statement. Consider the case of a political candidate seeking 
the names of registered Democrats in two Florida cities: 

Poor Code: 

IF (LOCATION-CODE = 48 OR LOCATION-CODE = 65) 
AND POLITICAL-PARTY = "D" . . . 

Improved Code: 

05 LOCATION-CODE PIC 99. 

88 MIAMI VALUE 48. 

88 TAMPA VALUE 65. 

88 FLORIDA VALUES ARE 48, 65. 

05 POLITICAL-PARTY PICX. 

88 DEMOCRAT VALUE "D". 

88 REPUBLICAN VALUE "R". 

IF FLORIDA AND DEMOCRAT . . . 

When 88-level entries are not used, the IF statement is considerably 
harder to read. Moreover, the chances for error are greater as the condition 
portion is more complex to code. In the example shown, the parentheses 
are required, and the meaning will change if they are removed. The improved 
code defines the city and political party codes in the Data Division, resulting 
in an easier to read Procedure Division. 

Condition names also facilitate maintenance in that changes to existing 
codes, and/or additions of new codes is done in only one place, the Data 
Division. When 88-level entries are not used, and the value of a given data 
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name is tested more than once in the Procedure Division, changes are re- 
quired in several places. 



STRUCTURED 
PROGRAMMING 



Although coding standards are essential to a well-written program, they do 
not by themselves guarantee success. Attention must also be focused on 
logic, and its implementation in a program. 

This is the first discussion of the term, structured programming, although 
every program presented so far has been "structured." Structured program- 
ming is the discipline of making a program's logic easy to follow. This is ac- 
complished by Mmiting a program's flowchart to three basic building blocks: 
sequence, selection, and iteration, as shown in Figure 7.1. 

Sequence specifies that statements in a program axe executed sequen- 
tially, that is, in the order in which they appear. Selection is the choice be- 
tween two actions. A condition is tested; if it is true, block A is executed; if 



(a) SEQUENCE 




(b) SELECTION 




(c) ITERATION 




FIGURE 7.1 Building blocks of structured programming 
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it is false, block B is executed. Iteration (or looping) calls for repeated execu- 
tion of one or more instructions while a condition remains true. 

The theory of structured programming is easily applied to COBOL. 
The sequence structure is implemented by coding statements in order. 
Selection is implemented by the IF /ELSE statement, and iteration through 
the PERFORM/UNTIL. 

Conspicuous by its absence in Figure 7.1 is the unconditional transfer 
of control, or GO TO statement. The originators of structured programming 
did not deliberately avoid the GO TO, but rather saw no need for its use. The 
three logic structures of Figure 7.1 are sufficient to produce any required 
logic; indeed, we have come all the way through the book without using this 
seemingly innocuous statement. 

The happy result of the structured discipline is that programs written 
this way are easier to read and more apt to be correct. This will become very 
evident in later chapters as we progress to programs requiring more complex 
logic. Structured programming also requires that every paragraph in a 
COBOL program do one and only one job. The utility of this principle is 
best illustrated by example. Recall the specifications of the original payroll 
program of Chapter 4 : 

1. Process a file of employee records, calculating regular, overtime, 
and gross pay. Print a detail line for every employee. 

2. Maintain company totals for regular, overtime, and gross pay, and 
print these three numbers at the end of the report. 

3. Print a simple heading line at the beginning of the report. 

The structure of the original payroll program was shown in the hier- 
archy chart of Figure 4.7. The paragraph, PREPARE-PAYROLL, was 
on top of the chart and called the subordinate paragraphs WRITE-HEADING- 
LINE, PROCESS-RECORDS, and WRITE-COMP ANY-TOTAL. PROCESS- 
RECORDS, in turn, called two lower level modules, UPDATE-COMPANY- 
TOTALS and WRITE-DETAIL-LINE. 

We now expand the payroll program to accommodate the following 
changes, and in the process illustrate the structured design principle of 
functional paragraphs: 

1. A maximum of three employees is to appear on each page of the re- 
port. Consequently, the heading line is to be printed an indetermi- 
nate number of times (once on each page) rather than only at the 
beginning, as was done in Chapter 4. In addition, a second heading 
line containing a page number and date of execution is to be added. 

2. Federal tax is to be computed for each employee and deducted from 
gross pay. Federal tax is calculated as follows: 

16% of the first $160 

18% on amounts between $160 and $200 

20% on anything over $200 

Thus, an employee earning $275 would pay $47.80 in tax as follows: 

16% of $160 = $25.60 
18% on $ 40 = $ 7.20 
20 % on $ 75 = $15.00 

Tax = $47.80 



3. The heading, detail, and total lines are to be modified to accom- 
modate both federal tax and net pay. (Realize that company totals 
must also be maintained for these items.) 

A hierarchy chart for the expanded payroll program is shown in Figure 
7.2. Note well the strong functional nature (verb, adjective, object) of each 
box in the chart. The "job" of each module is readily apparent, and further 
is restricted to a single function. The hierarchy chart does not contain de- 
cision making logic as does pseudocode or a flowchart. It does, however, 
imply the specific requirements of each paragraph in the program, and con- 
sequently is a valuable aid in both design and documentation. 



THE COMPLETED Figure 7.3 contains the completed program. It is fully structured, and ad- 
PROGRAM heres to several of the coding guidelines discussed earlier. Blank lines appear 
before 01 entries and paragraph names. All PICTURE and VALUE clauses 
are vertically aligned. 





PREPARE-PAYROLL 
































GET-DATE 




PROCESS-RECORDS 




WRITE-COMPANY 
TOTALS 




















































COMPUTE-GROSS 

PAY 




COMPUTE-FEDERAL 
TAX 




COMPUTE-NET 
PAY 




UPDATE-COMPANY 
TOTALS 




WRITE-HEADING 
LINE 




WRITE-DETAIL 
LINE 



FIGURE 7.2 Hierarchy chart for expanded payroll program 



000100 
000U0 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000170 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 



IDENTIFICATION DIVISION. 
PROGRAM-ID. PAYR0LL2. 
AUTHOR, R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRB-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT "PAYROLL/DAT". 
SELECT PRINT-FILE 

ASSIGN TO PRINT " PAYR0LL2/TXT" . 



DATA DIVISION. 

FILE SECTION. 

FD EMPLOYEE-FILE 

LABEL RECORDS ARE 

RECORD CONTAINS S€r CHARACTERS 

DATA RECORD le^MPWfYEE-RECORD. 

01 EMP LOYEE ?«g€0RD . 

05 IempP name. 

10 EMP-kAST-NAME 
10 lEMPhFIRST-NAME 



-Data names within an FD have common 
prefix 



PIC 
PIC 



X(15), 
X(10), 



FIGURE 7.3 Expanded payroll program 
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000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

0004B0 

000490 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000570 

000580 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 

000710 

000720 

000730 

000740 

000750 

000760 

000770 

000780 

000790 

000800 

000810 

000820 

000830 

000840 

000850 

000860 

000870 

000880 

000890 

000900 

000910 

000920 

000930 

000940 

000950 

000960 

000970 

000980 

000990 

001000 

001010 

001020 

001030 

001040 



05 



05 
05 



EMP-HOURS-WORKED. 

10 EMP-RES-HOURS PIC 99. 

10 EMP-OVERTIME-HOURS PIC 99. 

EMP-RATE PIC 99V99. 

FILLER PIC X(47). 



FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 



01 PRINT-LINE 

WORKING-STORAGE SECTION. 
77 WS-DATA-REMAINS-SWITCH 



PIC X(132). 



PIC X(3) 



01 


DATE-WORK-AREA. 








05 TODAYS-YEAR 


PIC 


99. 




05 TODAYS-MONTH 


PIC 


99. 




05 TODAYS-DAY 


PIC 


99. 



01 



01 



VALUE SPACES. 



'Holds date of execution 



I ND- COMPUTATIONS. 



05 IND-REGULAR-PAY 

05 IND-OVERTIME-PAY 

05 IND-GROSS-PAY 

05 IND-FEDERAL-TAX 

05 IND-NET-PAY 



01 COMPANY-TOTALS. 

05 CO-REGULAR-PAY 
05 CO-OVERTIME-PAY 
05 CO-GROSS-PAY 
05 CO-FEDERAL-TAX 
05 CO-NET-PAY 

01 PAGE-AND-LINE-COUNTERS. 



' Common prefix 

PIC 9(4)V99. 
PIC 9(4)V99. 
PIC 9<4)V99. 
PIC 9(4)V99. 
PIC 9(4)V99. 



PICTURE and VALUE clauses are vertically aligned 




C 9<6)V99 
PIC~~-9~(^V99 
PIC 9<6)( 
PIC 9<6)V99 
PIC 9(6)V99 



VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 



05 
05 



WS-PAQE-COUNT 
WS-LINE-COUNT 



HEADING-LINE-ONE. 

05 FILLER 

05 HDG-MONTH 

05 FILLER 

05 HDG-DAY 

05 FILLER 

05 HDG-YEAR 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 HDG-PAGE-NUMBER 

05 FILLER 

HEADING-LINE-TWO. 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 



PIC 9(4) VALUE ZEROS. 

PIC 9(4) VALUE 4. 

■^Page and line counters are required for page heading routine 



PIC 


X(4). 






PIC 


Z9. 






PIC 


X 


VALUE 


" / " . 


PIC 


Z9. 






PIC 


X 


VALUE 


" / " . 


PIC 


99. 






PIC 


X ( 40 ) 


VALUE 


SPACES. 


PIC 


X(B) 


VALUE 


" PAYROLL " . 


PIC 


X(6) 


VALUE 


"REPORT". 


PIC 


X(40) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"PAGE". 


PIC 


Z(4). 






PIC 


X(18) 


VALUE 


SPACES. 


PIC 


X(8) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"NAME". 


PIC 


X(9) 


VALUE 


SPACES. 


PIC 


X(4) 


VALUE 


"RATE". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"REG HOURS" 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(9) 


VALUE 


"0/T HOURS" 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(7) 


VALUE 


"REG PAY". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(7) 


VALUE 


"0/T PAY". 


PIC 


X(4) 


VALUE 


SPACES. 


PIC 


X(ll) 


VALUE 


"GROSS PAY" 


PIC 


X(2) 


VALUE 


SPACES. 



FIGURE 7.3 Continued 
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001050 

001060 

001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 
001730 
001740 



05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 



DASHED-LINE. 

05 ROW-OF-DASHES 

05 FILLER 



01 



DETAIL-LINE. 
05 FILLER 

DET-LAST-NAME 

FILLER 

DET-RATE 

FILLER 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



[D|T|=fiEfiz±tQURS 

FIL LER 
iDETh OVERTIhE-HOURS 

FILLER 

DET-REGULAR-PAY 

FILLER 

DET-OVERTIME-PAY 

FILLER 

DET -GROSS -PAY 

FILLER 

DET-FEDERAL-TAX 

FILLER 

DET-IMET~PAY 

FILLER 



01 



TOTAL-LINE. 

05 FILLER 

05 FILLER 

05 FILLER 

05 TOTAL-REGULAR-PAY 

05 FILLER 

05 TOTAL-OVERTIME-PAY 

05 FILLER 

05 TOTAL-GROSS-PAY 

05 FILLER 

05 TOTAL-FEDERAL-TAX 

05 FILLER 

05 TOTAL-NET-PAY 

05 FILLER 



PROCEDURE DIVISION. 
0100-PREPARE-PAYROLL. 

PERFORM 0200-GET-DATE. 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 

READ EMPLOYEE-FILE 



PIC X(7) 
PIC X(5) 
PIC X(7) 
PIC X(23) 



VALUE "FED TAX", 
VALUE SPACES. 
VALUE "NET PAY" , 
VALUE SPACES. 




Blank lines are inserted before 01 entries 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X(lll) 
X(21)" 



X(2). 

X(15). 

X ( 2 ) . 

**$.99. 

X(S). 

Z9. 



VALUE 
VALUE 



ALL "-" 
SPACES. 



~PT r, X i 1 PH-r — Datanames within an 01 entry 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



Z9. 

X(6) . 

**,**9 

X(3). 

**»$$9 

X(2). 

**)**9 

X(3). 

**i*$9 

X(3). 

**5**9.99 

X(23). 



have a common prefix 



99. 



99. 



99. 



99. 



X(6) 

X(6) 

X(41) 

$$,**9 

X(3) 

**,$*9 

X(2) 

**i**9 

X(3) 

$$,«*9 

X ( 3 ) 

*$»**9 

X ( 47 ) 



VALUE 

VALUE 

VALUE 
99. 

VALUE 
99. 

VALUE 
99. 

VALUE 
99. 

VALUE 
,99. 

VALUE 



SPACES. 

"TOTALS" 

SPACES. 

SPACES. 

SPACES. 

SPACES. 

SPACES. 

SPACES. 



Subservient clauses are indented 



I AT END MOVE "NO" TO WS-DATA-REMjyiNS-SigiTCH. 



PER FORM 0300-PROCES5-RECORD3 , 

lUNTIL MS-DATA-REMAINS-St-JITCH === "N0".| 



ma 



PERFORM 1000-WRITE-COMPANY- 
CLOSE EMPLOYEE-FILE 

PRINT-FILE. 
STOP RUN. 

0200-GET-DATE. 



TOTALS. 



/ACCEPT statement to obtain date of execution 



I ACCEPT DATE-WORK-AREA FROM DATE 



MOVE TODAYS 
MOVE TODAYS 
MOVE TODAYS 



"YEAR TO HDG-YEAR. 
-MONTH ro HDG-MONTH. 
-DAY TO HD6-DAY. 



0300-PROCESS-RECORDS. 

PERFORM 0400-COMPUTE-GROSS-PAY. 
PERFORM 0500-COMPUTE-FEDERAL-TAX . 
PERFORM 0600-COMPUTE-NET-PAY. 
PERFORM 0700-UPDATE-COMPANY-TOTALS. 

FIGURE 7.3 Continued 
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001750 

001760 

001770 

001780 

001790 

001800 

001810 

001820 

001830 

001840 

001850 

00 1860 

001870 

001880 

001890 

001900 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 

001990 

002000 

002010 

002020 

002030 

002040 

002050 

002060 

002070 

002080 

002090 

002100 

002110 

002120 

002130 

002140 

002150 

002160 

002170 

002180 

002190 

002200 

002210 

002220 

002230 

002240 

002250 

002260 

002270 

002280 

002290 

002300 

002310 

002320 

002330 

002340 

002350 

002360 

002370 

002380 

002390 

002400 

002410 

002420 

002430 

002440 

002450 



-Test to invoke heading routine 



IF 



WS-LINE-COUNT > 3 

PERFORM 08B0-URITE-HEADING-LINE. 



PERFORM 0900-l-JRITE-DETA I L -L I NE . 
I ADD 1 TO MS-LI NE- COU NT. I 

-"^^ WS-LINE-COUNT is incremented for each detail line 

TO WS-DATA-REMAINS-SWITCH. 



READ EMPLOYEE-FILE 
AT END MOVE "NO" 



0800-WR I TE-HEAD I NG-L I NE . 

ADD 1 TO WS-PAGE-COUNT. 



I MOVE 1 TO MS-LINE-COUNT.I 
MOVE WS-PAGE-COUNT TO HDG-PAGE-NUMBER. 
WRITE PRINT-LINE FROM HEADING-LINE-ONE 

AFTER ADVANCING PAGE. 
WRITE PRINT-LINE FROM HEADING-LINE-TWO 

AFTER ADVANCING 4 LINES. 
WRITE PRINT-LINE FROM DASHED-LINE 

AFTER ADVANCING 1 LINE. 



WS-LINE-COUNT is reset to 1 in heading routine 



0400- COMPUTE- GROSS- PAY. 



Paragraph names are sequenced and functional 



MULTIPLY EMP-REG-HOURS BY EMP-RATE GIVING IND-REGULAR-PAY. 
COMPUTE IND-OVERTIME-PAY 

= EMP-OVERTIME-HOURS * EMP-RATE * 1.5. 
ADD IND-REGULAR-PAY IND-OVERTIME-PAY GIVING IND-GROSS-PAY. 



10500-COMPUTE-FEDERAL-TAX. 

COMPUTE IND-FEDERAL-TA' 
IF IND-GROSS-PAY > 160 

COMPUTE IND-FEDERAL-T 
= IND-FEDERAL-TAX 



IF IND-GROSS-PAY > 200 
COMPUTE IND-FEDERAL- 
= IND-FEDERAL/T^X 



10600-COMPUTE-NET-PAY. 

COMPUTE IND-NET-PAY 




IND-GROSS-PAY. 



(IND-GROSS-PAY 



160), 



New functions in expanded payroll 



(IND-GROSS-PAY 



200 ) , 



IND-GROSS-PAY - IND-FEDERAL-TAX. 



0700-UPDATE-COMPANY-TOTALB. 

ADD IND-REGULAR-PAY TO CO-REGULAR-PAY. 
ADD IND-OVERTIME-PAY TO CO-OVERTIME-PAY. 
ADD IND-GROSS-PAY TO CO-GROSS-PAY. 



ADD IND-FEDERAL-TAX TO CO-FEDERAL-TAX. 
ADD IND-NET-PAY TO CO-NET-PAY. 



0900-WRITE-DETAIL-LINE. 

MOVE SPACES TO DETAIL-LINE. 

MOVE EMP-LAST-NAME TO DET-LAST-NAME. 

MOVE EMP-RATE TO DET-RATE. 

MOVE EMP-REG-HOURS TO DET-REG-HOURS. 

MOVE EMP-OVERTIME-HOURS TO DET-OVERTIME-HOURS. 

MOVE IND-REGULAR-PAY TO DET-REGULAR-PAY. 

MOVE IND-OVERTIME-PAY TO DET-OVERTIME-PAY. 

MOVE IND-GROSS-PAY TO DET-SROSS-PAY. 



Existing modules have been expanded 



MOVE IND-FEDERAL-TAX TO DET-FEDERAL-TAX. 
MOVE IND-NET-PAY TO DET-NET-PAY. 



WRITE PRINT-LINE FROM DETAIL-LINE Existing modules have been expanded 

AFTER ADVANCING 2 LINES. 



3\ 



1 000-WR I TE-COMPANY-TOTALS. 

WRITE PRINT-LINE FROM DASHED-LINE 

AFTER ADVANCING 1 LINE. 
MOVE CO-REGULAR-PAY TO TOTAL-REGULAR-PAY. 
MOVE CO-OVERTIME-PAY TO TOTAL-OVERTIME-PAY 
MOVE CO-GROSS-PAY TO TOTAL-GROSS-PAY. 
MOVE CO-FEDERAL-TAX TO TOTAL-FEDERAL -TAX. 
MOVE CO-NET-PAY TO TOTAL-NET-PAY. 

WRITE PRINT-LINE FROM TOTAL-LINE 
AFTER ADVANCING 2 LINES. 



Blank lines are inserted 
before paragraph names 



FIGURE 7.3 Continued 
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Data names are fully descriptive. Related entries in Working-Storage are 
grouped together under a common 01 with a common prefix; e.g., IND- 
COMPUTATIONS (lines 560-610) and COMPANY-TOTALS (lines 630- 
680). Paragraph names are functional and sequenced. 

Indentation is very important. It is used as a matter of course with level 
numbers in the Data Division (lines 320-400). It is also used in the Proce- 
dure Division where subservient clauses are indented, e.g., AT END under 
READ, UNTIL under PERFORM, and so on. 

Output is shown in Figure 7.4. (The test data were identical to those in 
Figure 4.5.) Note well the page numbers and the presence of only three em- 
ployees per page. WS-P AGE-COUNT and WS-LINE-COUNT are defined in 
lines 710 and 720. The value of WS-LINE-COUNT is tested pnor to writing 
a detail line in line 1760. If it is greater than three, WRITE-HEADING-LINE 
is performed, which resets the line count and increments the page count. 
Note also that the line count is incremented after each detail line is written. 



SUMMARY This important chapter discussed techniques for writing better programs. 
The reader was presented with a series of 12 coding guidelines which are 
thought to produce programs that are easy to read and maintain. 

The chapter also defined the discipline of structured programming. 
This methodology has been in common use since the mid 1970s, and is ap- 
plicable to small as well as large computers. The hierarchy chart was re- 
viewed and seen to be a useful design aid. 

The chapter ended with an expanded COBOL program of an earlier 
application, incorporating many of the techniques which were discussed. 



TRUE/FALSE 

1. COBOL requires that paragraph names be sequenced. 

2. Blank lines are not permitted in a COBOL program. 

3. A slash in column 7 causes the next line in a listing to begin on a new page. 

4. 0100-READ-AND-COMPUTE is a good name for a COBOL paragraph. 

5. Comments are indicated by an asterisk in column 7. 

6. A program cannot have too many comments. 

7. It is impossible to write a program without 77-level entries. 

8. Two- and three-letter data names are desirable to reduce programmer coding time. 

9. Indentation is a waste of time since it has no effect on the compiler. 
10. COBOL requires all PICTURE clauses to begin in the same column. 



PROJECTS 

There are no new projects associated with this chapter. It is suggested, however, 
that the reader review the projects developed in earlier chapters with respect to pro- 
gramming style. Modify one or more of those projects to conform to the coding standards 
suggested in the present chapter. 



OVERVIEW This chapter contains little that is new in the way of COBOL, but concen- 
trates instead on the important data processing concept of control breaks. 
We progress from a simple example involving a single level control break to 
a more complex problem with two levels. Since the logic of the latter prob- 
lem is somewhat involved, we emphasize the role of pseudocode as an aid in 
program development. 

This chapter also extends the earlier discussion of editing to include all 
available characters. Editing, per se, is not required for processing control 
breaks. However, this unit presents a suitable place to introduce the material 
and to use it in subsequent programs. We begin, therefore, with a brief dis- 
cussion oi editing, which includes signed numbers, and then address the main 
thrust of the unit— control breaks. 



EDITING Editing involves a change in data format. One may add commas, insert a 
dollar sign, suppress leading zeros, indicate negative values by a credit sign, 
etc. The purpose of all editing is to make reports easier to read. 

The payroll problem of Chapter 4 introduced the concept of editing. 
Now we shall present a more complete discussion, beginning with Table 8.1, 
which contains the set of editing characters. 



TABLE 8.1 

EDITING CHARACTERS 



Symbol 


Meaning 




Actual decimal point 


Z 


Zero suppress 


* 


Check protection 


CR 


Credit symbol 


DB 


Debit symbol 


+ 


Plus sign 


- 


Minus sign 


$ 


Dollar sign 


, 


Comma 





Zero 


B 


Blank 


/ 


Slash 



The blank (B) can be associated with any type of source field, i.e., al- 
phabetic, numeric, or alphanumeric. The zero (0) is restricted to numeric or 
alphanumeric fields. All other symbols are for numeric source fields only. 
Realize, however, that any MOVE statement involving edited pictures is 
also affected by the rules discussed in Chapter 4 with regard to decimal align- 
ment, truncation, etc. The use of various editing characters is best explained 
by direct example. Consider Table 8.2. 

The concepts of source field, receiving field, and actual and assumed 
decimal point were covered in Chapter 4. The character Z will zero -suppress; 
i.e., it replaces leading zeros by blanks. The $ causes a dollar sign to print. 
If several dollar signs are strung together [example (c) in Table 8.2] , the 
effect is a floating dollar sign, i.e., a dollar sign prints immediately to the left 
of the first significant digit. The $ can be used in conjunction with Z to 
cause a fixed dollar sign as in example (d) in Table 8.2. For obvious reasons, 
example (d) is not sound practice when "cutting" checks, and the asterisk is 
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TABLE 8.2 

E, Z, AND * EDIT CHARACTERS 



Source Field 




Receiving Field 


Picture 


Value 


Picture 


Edited Result 


(a) 9999V99 

(b) 9999V99 

(c) 9999 V99 

(d) 9999V99 

(e) 9999 V99 


0001 23 
0001 23 
0001 23 
000123 

000123 


9999.99 
ZZZZ.99 

$ZZZZ.99 

$»***,99 


0001.23 

1.23 

$1.23 

$ 1.23 

$***1.23 



used for check protection as shown in example (e). The asterisks appear in 
the edited result in lieu of leading zeros or spaces. 

Signed Numbers 

Frequently, the picture of a numeric source field is preceded by an S to indi- 
cate a signed field. The S is immaterial if only positive numbers can occur 
but absolutely essential any time a negative number results as the conse- 
quence of an arithmetic operation. If the S is omitted, the result of the arith- 
metic operation will always assume a positive sign. Consider: 



05 


FIELD-A 


PIC S99 


VALUE 


-20. 


05 


FIELD-B 


PIC 99 


VALUE 


15, 


05 


FIELD-C 


PIC S99 


VALUE 


-20, 


05 


FIELD-D 


PIC 99 


VALUE 


15, 



ADD FIELD-B TO FIELD-A. 
ADD FIELD-C TO FIELD-D. 

Numerically, one expects the sum of -20 and +15 to be -5. If the result 
is stored in FIELD-A, there is no problem. However, if the sum is stored in 
FIELD-D (an unsigned field), it wUl assume a value of +5. Many program- 
mers adopt the habit of always using signed fields to avoid any difficulty. 

Table 8.3 illustrates the use of floating plus and minus signs. If a plus 
sign is used, the sign of the edited field will appear if the number is either 
positive, negative, or zero [examples (a), (b), and (c)]. However, if a minus 
sign is used, the sign appears only when the edited result is negative. Note 
also that the receiving field must be at least one character longer than the 
sending field to accommodate the sign; otherwise, a compiler warning mes- 
sage results. 

Financial statements usually contain either the credit (CR) or debit 

TABLE 8.3 

FLOATING + AND - CHARACTERS 



Source Field 




Receiving Field 


Picture 


Value 


Picture 


Edited Result 


(a) S9(4) 


1234 


++,+++ 


+1 ,234 


(b) 89(4) 


0123 


++,+++ 


+123 


(c) 89(4) 


-1234 


++,+++ 


-1,234 


(d) 89(4) 


1234 




1,234 


(e) 89(4) 


0123 




123 


(f) 89(4) 


-1234 


"'--- 


-1 ,234 
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TABLE 8.4 

GRAND DB SYMBOLS 



Source Field 



Receiving Field 



Picture 



Value 



Picture 



Value 



(a) 39(5) 


98765 


$$$,999CR 


$98,765 


(b) 89(5) 


-98765 


$$$,999CR 


$98,765CR 


(c) 89(5) 


98765 


$$$,999DB 


$98,765 


(d) 89(5) 


-98765 


$$$,999DB 


$98,765DB 



(DB) symbol to indicate a negative number. The use of these characters is 
illustrated in Table 8.4. 

CR and DB appear only when the sending field is negative [examples 
(b) and (d)]. If the field is positive or zero, the symbols are replaced by 
blanks. The choice of CR or DB depends on the accounting system. COBOL 
treats both identically, i.e., CR and/or DB appear if and only if the sending 
field is negative. 



CONTROL We now proceed to the main thrust of the chapter, control breaks. A control 
BREAKS break is a change in a designated field. For example, if an incoming file has 
been arranged (i.e., sorted) so that all employees in the same location appear 
together, a control break occurs every time location changes. If the file is 
sorted by location, and department within location, it is possible to desig- 
nate two control fields, department and location. 

Let us assume that a file has been sorted on location, and department 
within location. Hence, all employees in department 100 in Atlanta precede 
the Atlanta employees in department 200, who precede those in department 
300, etc. Next come the employees in department 100 in Boston, followed 



Double control break 



Name 



Cain 
Milgrom 



Atlas 



Location 



Boston 
Boston 



Chicago 



Department 



200 
200 



100 



Salary 





Adams 


Atlanta 


100 


1 5,000 




Baker 


Atlanta 


100 


1 8,000 




Davis 


Atlanta 


100 


14,000 














Charles 


Atlanta 


200 


19,000 




Lowell 


Atlanta 


200 


1 7,500 




Smith 


Atlanta 


200 


18,000 














Tyler 


Atlanta 


300 


16,000 




Williams 


Atlanta 


300 


20,000 














Abel 


Boston 


100 


19,000 




Brewer 


Boston 


100 


26,000 




Dixon 


Boston 


100 


23,000 




Mason 


Boston 


100 


19,000 


8ingle control break 


Murphy 


Boston 


100 


16,500 



18,000 
17,000 



14.500 



FIGURE 8.1 Control breaks 
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by department 200 in Boston, and so forth. A single control break occurs 
as we change departments within the same location; e.g., from department 
100 in Atlanta to department 200 in Atlanta. A double control break, on 
location and department, arises when we go from department 300 in Atlanta 
to department 100 in Boston. 

The situation is made clearer by Figure 8.1, which illustrates both single 
and double control breaks. As can be seen from Figure 8.1, the Atlanta em- 
ployees appear together and precede the Boston employees, who in turn pre- 
cede the Chicago employees, and so on. Moreover, the Atlanta employees 
have been grouped by department so that those in department 100 precede 
those in department 200, and so on. 

A single control break occurs as we go from Davis to Charles, i.e., from 
department 100 to 200. A double control break results when we go from 
Williams (in department 300 in Atlanta) to Abel (in department 100 in 
Boston). Another double control break occurs when we go from Milgrom in 
Boston to Atlas in Chicago. 

A constant data processing requirement is to process incoming files to 
compute control break totals. An example of such a report is shown in Fig- 
ure 8.2, which totals salaries of all employees from the same department and 
the same location. Realize that Figure 8.2 shows only one location, i.e., At- 
lanta, and that there would be a similar page for each location in the com- 
plete report. 



Name 


Location 


Department Salary 




Adams 


Atlanta 


1 00 1 5,000 




Baker 


Atlanta 


100 18,000 




Davis 


Atlanta 


100 14.000 








Total for department 100 = 


47,000 


Charles 


Atlanta 


200 19,000 




Lowell 


Atlanta 


200 1 7,500 




Smith 


Atlanta 


200 18,000 








Total for department 200 = 


54,500 


Tyler 


Atlanta 


300 16,000 




Williams 


Atlanta 


300 20,000 








Total for department 300 = 


36,000 






Total for Atlanta = 


137,500 



FIGURE 8.2 Control break totals 



ONE-LEVEL We now develop a COBOL program to compute totals for a single control 
CONTROL break. (The program will be expanded in the next section to cover two 
BREAKS levels. The COBOL per se is not difficult. However, the logic required for the 
latter problem is as involved as anything the reader is apt to encounter.) 

The problem is a marketing application. Input is a sales file, (Figure 
8.3a) with each record containing information about a single transaction for 
a particular salesman. There can be several records for the same salesman. 

The problem is to compute the total sales for each salesman, as well as 
the company total. To complicate matters, some of the transactions reflect 
returns rather than purchases, and are to be deducted from the total. Each 



JONES 1 1 1 1 1 1 050000SATL ANT A 

JONES 222222666666SATLANTA 

SMITH 100000030000SATLANTA 

SMITH 400000070000RATLANTA 

STOCKWELL 87B787123456RB0ST0N 

FORD 987654200000BBOSTON 

FORD 444333 1 00000SEOSTON 

FORD 555666200000SBOSTON 



SALESMAN: FORD 

ACCOUNT #: 
987654 
444333 
555666 



SALES ACTIVITY REPORT 



RETURNS 



LOCATION.- BOSTON 



SALES 
$2,000.00 
*1 1000. 00 

$25 000.00 

*** SALESMAN TOTAL = * 5i000.00 
*#* COMPANY TOTAL = $ 105 532.10 



BALES ACTIVITY REPORT 
SALESMAN: STOCKWELL 



LOCATION! BOSTON 



ACCOUNT #: RETURNS SALES 

878787 $1,234.56 

*«•* SALESMAN TOTAL = * li234.56CR 



SALESMAN: SMITH 

ACCOUNT tt: 
100000 
400000 



SALES ACTIVITY REPORT 



RETURNS 



LOCATION: ATLANTA 

SALES 
* 300.00 



$ 700. 00 



\*** salesman" TOTAL = $ 400.00CR[ — 



SALESMAN: JONES 
ACCOUNT #: 

null 



SALES ACTIVITY REPORT 



RETURNS 



LOCATION: ATLANTA 



SALES 
$ 500.00 
$6 J 666. 66 
*»* SALESMAN TOTAL = $ 7,166.66 



CR indicates a negative number; 
i.e., returns greater than sales 



FIGURE 8.3 (a) Test data, (b) One-level control breaks (output) 
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transaction, therefore, contains a code, S or R, indicating a sale or return, 
respectively. 

Figxure 8.3 shows hypothetical data and the desired report. Note well 
that the incoming data have been sorted by salesman so that all transactions 
for the same individual appear together. The output for each salesman ap- 
pears on a page by itself. Observe also that both transactions for Jones are 
sales, and hence his total represents the sum of the transactions. Smith, how- 
ever, had one sale and one return. Moreover, the amount of the return was 
greater than the amount of sale, and thus his total is negative as indicated 
by the CR editing characters. 

Pseudocode for the program is expressed in Figure 8.4. The program 
begins with typical "housekeeping" functions such as opening files and an 
initial read. Next, it processes transactions until there are no more data, after 
which the final total is printed and the program terminates. 

/Heading is written prior to a control break 

Open files 

Read SALES-FILE at end indicate no/more data 
■PERFORM until no more data 

Move TR-SALESMAN-NAM^ to WS-PREVIOUS-SALESMAN 
Zero salesman total 
! Write salesman heading line | 



PERFORM until iTR-SALESMAN-NAIVIE?'WS-PREVIOUS-SALESIVIANornomoredata| 
Determine transaction type V 

Increment salesman total \ 

Increment company total Detects a control break 

Write detail line 

Read SALES-FILE at end indicate no more data 
' -ENDPERFORM 
I Write salesman total I 



■ENDPERFORWl 
Write com 
Close files 
Stop run 



Write company total \t- , , . .^ ,^ » 1 1. i 

„. ... '^ ' ^Total IS written after a control break occurs 

Close files 



FIGURE 8.4 Pseudocode for single control break 

Note well that the pseudocode (and eventual program) must con- 
tain a mechanism for detecting a control break. Accordingly, after a trans- 
action is read, TR-SALESMAN-NAME is moved to a second data name, 
WS-PREVIOUS-SALESMAN. The pseudocode then processes transactions 
until a control break occurs; i.e., TR-SALESMAN-NAME is not equal to 
WS-PREVIOUS-SALESMAN. The total for the current salesman is written, 
after which WS-PREVIOUS-SALESMAN is reset and the process continues. 

The completed program is shown in Figure 8.5. Note that TRANS- 
ACTION-WORK-AREA defines two 88-level entries under TR-CODE (lines 
540-560). Hence, in the IF statement of line 1320, the entry IF SALE is 
equivalent to IF TR-CODE = "S". Condition names (88-level entries) were 
introduced in Chapter 6 as a means of enhancing clarity in the Procedure 
Division. 

Observe also that TR-AMOUNT is either added or subtracted depending 
on a sale or return. Consequently, both THIS-SALESMAN-TOTAL and 
COMPANY-TOTAL are defined as signed numbers (lines 460 and 470) to 
accommodate potential negative numbers. Realize also that both THIS- 
SALESMAN-TOTAL and COMPANY-TOTAL are used for calculations only; 
the printed output is contained in PRT-SALESMAN-TOTAL and PRT- 
COMPANY-TOTAL, lines 960 and 1030, respectively. The latter are edited 
fields containing the characters CR, which print if and only if the sending 
field is negative. 

The Procedure Division is fairly straightforward. The files are opened and 
an initial read is executed. The paragraph, 020-PROCESS-ALL-SALESMEN, 



0(30100 
000110 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 



IDENTIFICATION DIVISION. 
PR06RAM-ID. ONELEVEL. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT SALES-FILE 

ASSIGN TO INPUT 
SELECT PRINT-FILE 

ASSIGN TO PRINT 



'ONELEVEL/DAT" 



"ONELEVEL/TXT" 



DATA DIVISION. 

FILE SECTION. 

FD SALES-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 47 CHARACTERS 
DATA RECORD IB SALES-RECORD. 

01 SALES-RECORD PIC X(47). 

FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE PIC X(132). 



WORKING-STORAGE SECTION. 
01 PROGRAM-SWITCHES. 



Detects end of input file 



05 WS-DATA~REMAINS-SWITCH 



05 WS-PREVIOUS-SALESMAN 




VALUE 
VALUE 



» YF£» " - 
SPACES. 



01 CONTROL-BREAK-TOTALS. 



Tests for control break 



05 THIS-SALESMAN-TOTAL 



PIC S9(6)V99 



01 



05 COMPANY-TOTAL 

TRANSACT I ON- WORK-AREA. 
05 FILLER 
05 TR-SALESMAN-NAME 
05 TR-ACCOUNT-NUMBER 
05 TR-AMOUNT 



PIC S9(6)V99 



VALUE 
VALUE 



ZEROS. 
ZEROS. 



\"S" indicates a signed number 



PIC 
PIC 
PIC 
PIC 



X(4) . 
X( 15). 
9(6). 
9(4)V99. 



05 


TR- 


-CODE 


PIC X. 




88 


RETURNS 


VALUE "R". 




88 


SALE 


VALUE "S". 



- 88 level entry 



0^ 



TR~LOCATION 



01 



HDG-LINE-ONE. 
05 FILLER 
05 FILLER 

VALUE "SALES 
05 FILLER 



01 HDG -LINE-TWO. 



PIC X( 15), 



PIC X(22) 
PIC X(21 ) 
ACTIVITY REPORT". 
PIC X(S9) 



05 

05 
05 
05 
05 
05 
05 



FILLER 

FILLER 

HDG-NAME 

FILLER 

FILLER 

HDG-LOCATION 

FILLER 



01 HD6-LINE-THREE. 



05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 



X ( 5 ) 

X(10) 

X(15). 

X(25) 

X( 10) 

X(13), 

X(54) 



X(10) 
X(ll) 
X(15) 
X(7) 
X( 15) 



VALUE SPACES. 



VALUE SPACES. 



VALUE SPACES. 
VALUE "SALESMAN: 

VALUE SPACES. 
VALUE "LOCATION: 

VALUE SPACES. 



VALUE SPACES. 
VALUE "ACCOUNT tt: 
VALUE SPACES. 
VALUE "RETURNS". 
VALUE SPACES. 



FIGURE 8.5 One-level control break program 
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000800 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
0009B0 
000990 
001000 

001010 

00 1 020 

001030 

001040 

001050 

001060 

001070 

001080 

001090 

001100 

001110 

001120 

001130 

001140 

001150 

001160 

001170 

001180 

001190 

001200 

001210 

001220 

001230 

001240 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

001340 

001350 

001360 

001361 

001370 

001380 

001390 

001400 

001410 

001420 

001430 

001440 

001450 

001460 

001470 

001480 



05 FILLER 
05 FILLER 

01 DETAIL-LINE. 

05 FILLER 

05 DET-ACCOUNT-NUMBER 

05 FILLER 

05 DET-RETURNS 

05 FILLER 

05 DET-SALES 

05 FILLER 

01 SALESMAN-TOTAL-LINE. 
05 FILLER 
05 FILLER 

VALUE "*** SALESMAN 
05 PRT-SALESMAN-TOTAL 
05 FILLER 



PIC X(5) 
PIC X(69) 



PIC X(14) 

PIC 9(6) . 

PIC X(14) 
IPIC $Z.ZZ9.99. 

PIC X(ll) 
IPIC $Z.ZZ9.99. 

PIC X<69) 



VALUE "SALES" 
VALUE SPACES. 



VALUE SPACES. 



VALUE SPACES. 




Edited pictures 



VALUE SPACES. 



PIC 
PIC 
TOTAL 
PIC 
PIC 



X(25) 
X(21) 



VALUE SPACES. 



$Z(3)»ZZ9.99|CR 
X(73) VALUE 




Prints only if the sending 
field is negative (see lines 
460 and 1570) 



SPACES. 



01 



COMPANY-TOTAL- 
05 FILLER 
FILLER 



■LINE. 



05 

05 
05 



PIC X(26) 
PIC X(20) 



VALUE SPACES. 



VALUE "»** COMPANY TOTAL 



PRT-COMPANY-TOTAL 
FILLER 



PIC $Z<3),ZZ9.99CR. 

PIC X(73) VALUE SPACES. 



PROCEDURE DIVISION. 
1 0-CALCULATE-CONTROL-BREAKS . 
OPEN INPUT SALES-FILE 

OUTPUT PRINT-FILE. 
READ SALES-FILE INTO TRANSACTION-WORK-AREA 

AT END MOVE "NO" TO UIS-DATA-REMA INS-SWITCH. 
PERFORM 020-PROCESS-ALL-SALESMEN 

UNTIL WS-DATA~REMA INS-SWITCH = "NO". 
PERFORM 080-WR I TE-COMPANY-TOTAL . 
CLOSE SALES-FILE 
PRINT-FILE. 
STOP RUN. 



020-PROCESS-ALL-SALESMEN. 

MOVE TR-SALESMAN-NAME TO 



WS-PREVIOU: 



jMOVE ZEROS TO THIS-SALE5MAN-T0TAL. 
PERFORM 060-WRITE-SALESMAN-HEADING. 
PERFORM 030-PROCESS-ALL-TRANSACTIONS 



Initializes each salesman's total 

SALESMAN. 

/Tests for control break 



I UNTIL TR-SALESMAN-NAME NOT EQUAL WS-PREVIOUS-SALESMANl 
OR WS-DATA-REMA INS-SWITCH = "NO". 



I PERFORM 070-WRITE-SALESMAN~TOTAL. 



Writes one salesman's total 



030-PROCESS-ALL-TRANSACTIONS. 
MOVE SPACES TO DETAIL-LINE. 
MOVE TR-ACCOUNT-NUMBER TO DET-ACCOUNT-NUMBER. 



IF SALE 

MOVE TR-AMOUNT TO DET-SALES 
ADD TR-AMOUNT TO THIS-SALESMAN-TOTAL 
ADD TR-AMOUNT TO COMPANY-TOTAL 
ELSE 

IF RETURNS 

MOVE TR-AMOUNT TO DET-RETURNS 
SUBTRACT TR-AMOUNT FROM THIS-SALESMAN-TOTAL 
SUBTRACT TR-AMOUNT FROM COMPANY-TOTAL. 



WRITE PRINT-LINE FROM DETAIL-LINE l°^^^^T''""^^T^i°','^^"^^Z^f^'.r,. 

AFTER ADVANCING 2 LINES. dependmg on TR-CODE (see lines 540-560) 

READ SALES-FILE INTO TRANSACTION-WORK-AREA 

AT END MOVE "NO" TO WS-DATA-REMA INS-SWITCH. 

060-WR I TE-SALESMAN-HEAD I NG . 

WRITE PRINT-LINE FROM HDG-LINE-ONE 
AFTER ADVANCING PAGE. 



FIGURE 8.5 Continued 
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001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 



MOVE TR-SALESMAN-NAME TO HDG-NAME. 
MOVE TR-LOCATION TO HDG-LOCATION. 
WRITE PRINT-LINE FROM HDG-LINE-TWO 

AFTER ADVANCING 2 LINES. 
WRITE PRINT-LINE FROM HDG-LINE-THREE 

AFTER ADVANCING 3 LINES. 

070-WR I TE-SALESMAN-TOTAL . 

MOVE THIS-SALESMAN-TOTAL TO PRT-SALESMAN-TOTAL. 
WRITE PRINT-LINE FROM 9ALEBMAN-T0TAL-LINE 
AFTER ADVANCING 2 LINES. 

080-WRITE-COMPANY-TOTAL. 

MOVE COMPANY-TOTAL TO PRT-COMPANY-TOTAL. 
WRITE PRINT-LINE FROM COMPANY-TOTAL-LINE 
AFTER ADVANCING 5 LINES. 

FIGURE 8.5 Continued 



is executed as long as data remain, after which the company total is written 
and the program terminates. 

The PROCESS-ALL-SALESMEN paragraph is the key to the pro- 
gram. The current salesman, TR-SALESMAN-NAME is moved to WS- 
PREVIOUS-SALESMAN as a means for detecting subsequent control 
breaks. The salesman's total is initialized to zero and a heading is written. 
A lower level paragraph is performed to process individual transactions 
until TR-SALESMAN-NAME is unequal to WS-PREVIOUS-SALESMAN; 
i.e., the control break occurs. The salesman's total is written and the routine 
PROCESS-ALL-SALESMEN is re-executed until the input file is exhausted. 



TWO-LEVEL The previous example is extended to a second level, in which totals are re- 
CONTROL quired for individual salesmen (as before), and for each city as well. Figure 
BREAKS 8.6 contains both test data and the desired report. The test data for this ex- 
ample (Figure 8.6a) are the same as in the previous example (Figure 8.3a). 

Observe carefully the order of the incoming records. All salesmen in the 
same city appear together. Moreover, the multiple transactions for a given 
salesman are also consecutive. In other words, the incoming file has been 
sorted by city, and by salesman within city. 

Development of the subsequent program is facilitated by first consider- 
ing the hierarchy chart of Figure 8.7. Recall that a hierarchy chart illustrates 
function, not procedure; i.e., it shows what has to be done but not when. 
Remember also, that each box in the hierarchy chart will become a para- 
graph in the completed program. 

The "boss" of the program is CALCULATE-CONTROL-BREAKS. 
It in turn calls two modules, PROCESS-ALL-LOCATIONS and WRITE- 
COMPANY-TOTAL. Each new location requires a heading, processing of all 
its salesmen, and a total; accompUshed by WRITE-LOCATION-HEADING, 
PROCESS-ALL-SALESMEN, and WRITE-LOCATION-TOTAL, respectively. 
Each salesman in turn requires his own heading, processing of all his trans- 
actions, and a total; accomplished by the three lowest level modules on the 
hierarchy chart. 

The pseudocode of Figure 8.8 illustrates procedure rather than func- 
tion; i.e., it shows when and how various processing is accomplished. It is 
similar to the pseudocode of Figure 8.4, except that it has been expanded to 
accommodate two control breaks. Pseudocode and /or a hierarchy chart 
are useful as design tools in developing the program of Figure 8.9. 
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JONES 1 1 1 1 1 1 050000SATLANTA 

JONES 222222666666SATLANTA 

SMITH 100000030000SATLANTA 

SMITH 400000070000RATLANTA 

STOCKWELL 878787 123456RB0ST0N 

FORD 9B7654200000SBOSTON 

FORD 444333 100000BBOSTON 

FORD 555666200000SBOSTON 



SALES ACTIVITY REPORT - BOSTON 
SALESMAN: STOCKWELL 



ACCOUNT #: 
878787 



SALESMAN! FORD 



ACCOUNT #: 
987654 
444333 
555666 



RETURNS 
*li234.56 



SALES 



*#* SALESMAN TOTAL = * 1,234.56CR 



RETURNS 

*** SALESMAN TOTAL 
*** LOCATION TOTAL 



SALES 
*25 000.00 
$1 1000. 00 

*2!000.00 



$ 5 1 000 . 00 
* 3,765.44 



*** COMPANY TOTAL = $ 10i532.10 



SALES ACTIVITY REPORT - ATLANTA 
salesman: JONES 



ACCOUNT #: 
llllU 



SALESMAN: SMITH 



ACCOUNT #! 
100000 
400000 



RETURNS 
*** SALESMAN TOTAL 

RETURNS 

$ 700.00 

*»« SALESMAN TOTAL 

##* LOCATION TOTAL 



SALES 
$ 500.00 
*6i666.66 



* 7,166.66 



SALES 
$ 300.00 



* 400.00CR 
$ 6,766.66 



FIGURE 8.6 Test data and report for two-level control break, (a) Test 
data, (b) Report 
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CALCULATE 
CONTROL 

BREAKS 

















PROCESS ALL 
LOCATIONS 
































WRITE 
LOCATION 
HEADING 




PROCESS ALL 

SALESMEN 
(in one location) 




WRITE 

LOCATION 

TOTAL 


































WRITE 

SALESMAN 

HEADING 




PROCESS ALL 
TRANSACTIONS 
(for one salesman) 




WRITE 

SALESMAN 

TOTAL 



WRITE 
COMPANY 

TOTAL 



FIGURE 8.7 Hierarchy chart for two-level control break program 



The two-level program uses the same input file as the earlier one-level 
version (lines 210-220). Note, however, the additional data names, WS- 
PREVIOUS-LOCATION and THIS-LOCATION-TOTAL (lines 440 and 480) 
which are necessary for the second control break. The Procedure Division 
at first appears somewhat intimidating. The hierarchy chart, however, clearly 
shows the relationship of the paragraphs, and thereby makes the program 
easier to follow. Thus, we see that the hierarchy chart serves two purposes. 
It is both a design and documentation aid. It is useful before the program is 
written to indicate what functions the programmer must include (the design 
function). It is also helpful after the fact to explain how a program works 
(documentation ) . 

Little more needs to be said about the program itself. The reader should 
be able to foUow the program because of the associated documentation, and 



Open files 

Read SALES-FILE at end indicate no more data 
-PERFORM until no more data 
Write location heading 

Move TR-SALESMAN-LOCATION to WS-PREVIOUS-LOCATION 
Zero this location's totals 



Indicates location break 



pPERFORM until lTR-SALESMAN-LOCATION t WS-PREVIOUS-LOCATION| or no more data 
Move TR-SALESMAN-NAME to WS-PREVIOUS-SALESMAN 
Zero Salesman totals /Indicates salesman break 

Write salesman h eading line / 

•PERFORM untii rrR-SALESMAN-NAME?>=WS-PREVIOUS-SALESMAN| 

or TR-SALESMAN-LOCATION i^ WS-PREVIOUS-LOCATION or no more data 
Determine transaction type 



Processes a transaction 



Increment salesman total 
Increment location total 
Increment company total 
Write detail line 

Read SALES-FILE at end indicate no more data 
ENDPERFORM 
Write salesman total line 
ENDPERFORM 
Write location total 
-ENDPERFORM 
Write company total 
Close files 
Stop run 

FIGURE 8.8 Pseudocode for double control break program 
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000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 



IDENTIFICATION DIVISION. 
PROGRAM- ID. TWOLEVEL. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 



' Uses the same file as one level program 



SELECT BALES-FILE 

ASSIGN TO INPUT 



■ONELEVEL/DAT" , 



SELECT PRINT-FILE 

ASSIGN TO PRINT 



"TWOLEVEL/ TXT" , 



DATA DIVISION. 

FILE SECTION. 

FD SALES-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 47 CHARACTERS 
DATA RECORD IB SALES-RECORD. 

01 SALES-RECORD PIC X(47). 

FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE PIC X(132). 



WORKING-STORAGE SECTION. 

01 PROGRAM-SWITCHES. 

05 WS-DATA-REMAINS-SWITCH 
05 WS-PREVIOUS-SALESMAN 
1 05 WS-PREVIOUS-LOCAT ION[ 

01 CONT ROL-BRE AK-TOT ALS . 



■ Location switch has been added 
for second control break 



PIC X(3) 
PIC X( 15) 
PIC X(15) 



VALUE "YES". 
VALUE SPACES. 
VALUE SPACES. 



05 


THIS-SALE3MAN-T0TAL 


PIC 


S9(6)V99 


VALUE 


ZEROS. 


05 


TH I S-LO CAT I ON-TOTAL 


PIC 


S9 ( 6 ) V99 


VALUE 


ZEROS. 


05 


COMPANY-TOTAL 


PIC 


S9(6)V99 


VALUE 


ZEROS. 



51 TRANSACTION-WORK-AREA. 

05 FILLER PIC 

05 TR-SALESMAN-NAME PIC 
05 TR-ACCOUNT-NUMBER PIC 
05 TR-AMOUNT PIC 

05 TR-CODE PIC 

88 RETURNS VALUE "R". 

88 SALE VALUE "S". y 

1 05 TR-^ALESMAN-LOCATION PIC X<15)"" 



X(4). 
X( 15). 
9(6). 
9(4)V99. 
X. 



Signed Picture clauses for 
potentially negative numbers 



01 HD6-LINE-0NE. 
05 FILLER 
05 FILLER 

VALUE "SALES 
05 HDG-LOCATION 
05 FILLER 

01 HDG-LINE-TWO. 
05 FILLER 
05 FILLER 
05 HDG-NAME 
05 FILLER 
05 FILLER 

01 HDG-LINE-THREE. 
05 FILLER 
05 FILLER 
05 FILLER 
05 FILLER 



PIC X< 15) 
PIC X(24) 
ACTIVITY REPORT - 
PIC X( 15) 
PIC X(78) 



PIC 
PIC 
PIC 
PIC 
PIC 



X(5) 

X(10) 

X(15), 

X(25) 

X(77) 



PIC X( 10) 
PIC X(ll) 
PIC X< 15) 
PIC X(7) 



' Input records contain location 
for second control break 



VALUE SPACES. 



VALUE SPACES. 
VALUE SPACES. 



VALUE SPACES. 
VALUE "SALESMAN: 

VALUE SPACES. 
VALUE SPACES. 



VALUE SPACES. 
VALUE "ACCOUNT #: 
VALUE SPACES. 
VALUE "RETURNS". 



FIGURE 8.9 Two-level control break program 
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000800 
000810 
000820 
000330 
000B40 
000850 
000860 
000870 



000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
00 11713 
0011 80 
001190 
001200 
001210 
001220 
001230 
001240 
0012:50 
001260 
00 1 270 
001280 
001290 
001300 
001310 
001320 
00 1 32 1 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001405 

001410 

001420 
001430 
001440 
001450 
001460 



05 FILLER 

05 FILLER 

05 FILLER 

01 DETAIL -LINE. 

05 FILLER 

05 DET-ACCOUNT-NUMBER 

05 FILLER 

05 DET-RETURNS 

05 FILLER 

05 DET-SALES 

05 FILLER 



PIC X(15) 
PIC X(5) 
PIC X(69) 



VALUE SPACES. 
VALUE " SALES V 
VALUE SPACES. 



VALUE SPACES. 



PIC X(14) 

PIC 9(6), 

PIC X(14) VALUE SPACES. 

PIC $Z,ZZ9.99. 

PIC X<11) VALUE SPACES. 

PIC $Z,ZZ9.99. 

PIC X<69) VALUE SPACES. 



01 



01 



SALESMAN-TOT AL-L I NE . 
05 FILLER 
05 FILLER 

VALUE "*** SALESMAN 
05 PRT-SALESMAN-TOTAL 
05 FILLER 

LOCAT I ON-TOTAL-L I NE . 
05 FILLER 
05 FILLER 

VALUE "*** LOCATION 
05 PRT-LOCAT I ON-TOTAL 
05 FILLER 

COMPANY-TOTAL-LINE. 
05 FILLER 
FILLER 



PIC 
PIC 
TOTAL 
PIC 
PIC 



PIC 
PIC 
TOTAL 
PIC 
PIC 



x<: 

XC 



:5) 
:i) 



VALUE SPACES. 



*Z(3),ZZ9.9'5 

X(73) VALUE SP>rCES. 



X ( 25 ) 
X(21) 




VALUE 



Appears only if sending 
field is negative 



*Z(3),ZZ9.9<5 

X(73) VALUE SPACES. 



05 

05 
05 



PIC X(26) 
PIC X<20) 



VALUE SPACES. 



VALUE "*** COMPANY TOTAL 



PRT-COMPANY-TOTAL 
FILLER 



PIC $Z(3),ZZ9.99CR. 

PIC X(73) VALUE SPACES. 



PROCEDURE DIVISION. 
010~CALCULATE-CONTROL-BREAKS. 
OPEN INPUT SALES-FILE 

OUTPUT PRINT-FILE. 
READ SALES-FILE INTO TRANSACTION-WORK -AREA 
AT END MOVE "NO" TO WS-DA"! A-REMAINS-SW] 
PERFORM 015-PROCESS-ALL-LOCATION3 

UNTIL WS-DATA-REMAINS-BWrrCH = "NO". 
PERFORM 0S0-WRITE-COMPANY-TOTAL. 
CL.OSE SALES-FILE 
PRINT-FIIJ-:. 
STOP RUN. 



TCH 



015 



:)N. 



-•PROCESB-ALL--LOCAT I ONB. 
PERFORM B65-WR I TE-LOCAT I ON -HEAD ING . 
MOVE TR-SALEBMAN-LOCATION TO WS-PREVIOUS-LOCATI 
MOVE ZEROS TO THIS -LOCATION-TOTAL. 

PE R FORM 02B--PROCESS-ALL-SALESMEN 

kiNTIL TR-SALESMAN-LOCATION NOT EQUAL W3-PREVI0US-L0CATI0N| 



OR WS-~DATA- 
PERFORM 075-WRITE- 



f?EMAINS-SWITCH = 
LOCATION-TOTAL. 



"NO" 



020- 



PROCESS~ALL--SALEBMEN. 

MOVE TR-3ALESMAN-NAME TO WS-PREVIOUS- 
MOVE ZEROS TO THIS-SALEBMAN-TOTAL. 
PERFORM 060-WRITE-SALESMAN-HEADING. 
PERFORM 030-PROCESS-ALL- TRANSACT I ONB 



SALESMAN. 



"■Control Break on Location 



' Control Break on Salesman 



UNTIL TR-SALESMAN-NAME NOT EQUAL WS-PREVIOUS-SALESMAN 



OR TR-SALESMAN-LOCATION NOT EQUAL 
OR WS-DATA-REMA INS-SWITCH = "NO". 
PERFORM 070-WRnE--BALESMAN--TOTAL. 



WS-PREV I OUS-LOCAT I ON 



030-FROCEBS-ALL- TRANSACTI ONS. 

MOVE SPACES TO DETAIL-LINE. 
MOVE TR-ACCOUNT-NUMESER TO DET- 



ACCOUNT-NUMBER. 



FIGURE 8.9 Continued 
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00 1 480 
C501490 
001500 
00 1 5 1 
001520 
1301530 
001531 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
0016B0 
001690 
001700 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
0017B0 
001790 
001800 
001810 
001820 
001830 
001340 
001850 
001860 
001870 
001880 
001890 



IF 


BALE 
















HOVE TR- AMOUNT ^ 


'0 DET- 


BALES 








ADD 


TR-AMOUNT 


T( 


) THIS- 


SALESMAN-TOTAL 








ADD 


TR-AMOUNT 


TO THIS- 


LOCATION- TOTAL 






ELS 


ADD 


TR-AMOUNT 


T! 


) COMPANY-TOTAL 






IF RETURNS 
















MOVE TR-AMOUNT TO 


DET-RETURNS 










SUBTRACT 


Tf^ 


-AM0UN1 


FROM TH IB-SAL 


-ISMAN- 


-TOTAL 






SUBTRACT 


TR- 


AMOUN"! 


FROM THIB-LOCATION- 


-TOTAL 






SUBTRACT 


TR- 


-AMOUNT 


FROM COMPANY- 


TOTAL, 





-Totals are incremented or 
decremented according to 
88 level entry 



WRITE PRINT-LINE FROM DETAIL -LINE 

AFTER ADVANCING 1 LINE. 
READ SALES-FILE INTO TRANSACTION-WORK-AREA 

AT END MOVE "NO" TO WS-DATA -REMAINS-SWITCH. 

060~WR I TE -SALESMAN-HEAD I NG . 

MOVE TR -SALESMAN-NAME TO HD<5-NAME. 
WRITE PRINT-LINE FROM HDG-LINE-TWO 

AFTER ADVANCING 2 LINES. 
WRITE PRINT-LINE FROM HDGI-L INE-THREE 

AFTER ADVANCING 3 LINES. 

065-WR I TE-LOCATI ON-HEADI NG. 

MOVE TR-SALESMAN-LOCATION TO HDG-LOCATION. 
WRITE PRINT-LINE FROM HDG-LINE-ONE 
AFTER ADVANCING PAGE. 



070-WRITE-SALE5MAN-TOTAL, 

MOVE this-salesman-total: 

WRITE print-line FROM SALES! 
AFTER ADVANCING 2 LINES 

075-WRITE-LOCATION-TOTA L. 

MOVE THIS-LOCATION-^TOTAL TO 

WRITE PRINT-LINE FROM LOCAT, 

AFTER ADVANCING 2 LI 




PRT-SALESMAN-TOTAL . 
TOTAL-LINE 

Totals are printed at different 
times depending on control break 

LOCATION-TOTAL. 
TOTAL-LINE 



-WR I TE-COMPANY-TOTAL . 

MOVE COMPANY-TOTAL TO PRT-COMPANY-TOTAL. 

WRITE PRINT-LINE FROM COMPANY-TOTAL-LINE 

AFTER ADVANCING 5 LINES. 

FIGURE 8.9 Continued 



because of the attention to programming style. The author takes consider- 
able effort in adhering to the coding guidelines suggested in Chapter 7; e.g., 
indentation, meaningful data names, and so on. 



SUMMARY This chapter focused on control breaks, one of the most frequent data pro- 
cessing applications. We began by defining a control break as a change in a 
designated field. We developed two programs, for one and two level breaks, 
respectively. Nothing new in the way of COBOL is required to process con- 
trol breaks. However, the logic itself was certainly nontrivial. Consequently, 
emphasis was placed on the pseudocode and hierarchy charts associated with 
each of the example programs. The importance of programming style, i.e., 
meaningful data names, indentation, and so on was stressed as a way of mak- 
ing programs easier to read. 

The chapter also completed an earlier discussion on editing. Numerous 
examples were presented to illustrate the various editing characters. Signed 
numbers were found to be especially important, with attention directed to 
the CR and DB editing characters, as well as floating plus and minus signs. 
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Chapter 8 



TRUE/FALSE 

1. The characters CR and DB represent plus and minus signs, respectively. 

2. The characters $ and * may not appear in the same picture clause. 

3. An unsigned numeric field may hold negative numbers. 

4. Arithmetic can be performed directly on a field with a dollar sign or comma in its 
picture. 

5. The picture $**9.99 is preferable to a picture of $***.*9. 

6. Input records to a program processing control breaks need not be in any special 
order. 

7. Control break processing must be restricted to a single level. 

8. Counters in a COBOL program are automatically initialized to zero by the COBOL 
compiler. 

9. Control breaks are an infrequent application. 

10. Indentation and meaningful data names are a waste of time in COBOL. 



EXERCISES 
1. Show the edited results for each entry: 



Source Field 



Receiving Field 



Picture 



Value 



Picture 



Edited Result 



(a) S9(4)V99 

(b) S9(4)V99 

(c) S9(4) 

(d) S9(6) 

(e) S9(6) 

(f) S9(6) 

(g) S9(6) 
(h) S9(6) 
(i) 9(6)V99 
(i) 9(6) V99 
(k) 9(6)V99 



-045600 

045600 

4567 

122577 

1 23456 

-1 23456 

1 23456 

-1 23456 

00567890 

00567890 

00567890 



$$$$$.99CR 
$$,$$$.99DB 

$$,$$$.00 
99B99B99 



$$$$,$$$.99 
$ZZZ,ZZZ.99 



***.99 



2. Consider the following code: 



01 AMOUNT-REMAINING 


PIC 9(3) VALUE 100. 


01 WS-INPUT-AREA. 




05 QUANTITY-SHIPPED 


PIC 99. 


05 REST-OF-A-RECORD 


PICX(50). 



READ TRANSACTION-FILE INTO WS-INPUT-AREA 
AT END MOVE "YES" TO EOF-SWITCH. 

PERFORM PROCESS-TRANSACTIONS 
UNTIL EOF-SWITCH = "YES" 

OR AMOUNT-REMAINING < 0. 



PROCESS-TRANSACTIONS. 

SUBTRACT QUANTITY-SHIPPED FROM AMOUNT-REMAINING. 
READ TRANSACTION-FILE INTO WS-INPUT-AREA 
AT END MOVE "YES" TO EOF-SWITCH. 



Control Breaks 
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(a) Why will AMOUNT-REMAINING never be less than zero? 

(b) What will be the final value of AMOUNT-REMAINING, given successive values of 
30, 50, 25, and 15 for QUANTITY-SHIPPED? 

3. Debugging: Figure 8.10 contains invalid output produced by the incorrect program 
of Figure 8.11. The data and intended results were shown in Figures 8.6a and 8.6b, 
respectively. 

Find and correct the errors in the program of Figure 8.11 so that it works as in- 
tended. (The reader may observe that Figure 8.11 is a modified version of Figure 8.9, 
which was developed correctly in the chapter.) 











1 SALES ACTIVITY REF^ORT - ATLANTA] 

1 : ,_^ — 1 






SALESMAN : STOCKWELL \ Location heading wrong 




ACCOUNT #: RETURNS BALES 
8787S7 $1,234.56 




*** SALESMAN TOTAL = $ 1,234.56 




SALESMAN: FORD 




ACCOUNT #: RETURNS SALES 
987654 $2,000.00 
444333 $1,000,00 
555666 $2,000.00 




*«* SALESMAN TOTAL = $ 5,000.00 






*#* LOCATION TOTAL = $ 10,532. 10| 






Location total is cumulative 




*** COMPANY TOTAL = $ 10,532.10 












1 BALES ACTIVITY REPORT - | 


salesman: JONES ^ Location heading wrong 


ACCOUNT #! RETURNS BALES 
lllUl $ 500.00 
222222 $6,666.66 




*** SALESMAN TOTAL = * 7,166.66 




salesman: SMITH 




ACCOUNT #: RETURNS SALES 
100000 $ 300.00 
400000 $ 700. 00 




*** SALESMAN TOTAL = $ 400. 00 1 | 






*** LOCATION TOTAL = $ 6,766.66 j 






^ "-^ ^,,^ / 





CR missing from salesman total- 
FIGURE 8.10 Invalid output (produced by Figure 8.11) 



000100 

000110 

000120 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

000210 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000570 

000580 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 

000710 

000720 

000730 

000740 

000750 

000760 

000770 

000780 

000790 

000800 

000810 

0B0B20 



IDENTIFICATION DIVISION. 
PROGRAM- ID. ETWOLEVE. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 



INPUT-OUTPUT SECTION. 
FILE- CONTROL. 

SELECT SALES-FILE 

ASSIGN TO INPUT 
SELECT PRINT-FILE 

ASSIGN TO PRINT 



'ONELEVEL/DAT", 



"ETWOLEVE/TXT" , 



DATA 
FILE 
FD 



01 



FD 



01 



DIVISION. 

SECTION. 
SALES-FILE 
LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 47 CHARACTERS 
DATA RECORD IS SALES-RECORD. 
SALES-RECORD PIC X(47). 

PRINT-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 132 CHARACTERS 

DATA RECORD IB PRINT-LINE. 

PRINT-LINE PIC X(132). 



WORKING-STORAGE SECTION. 

01 PROGRAM-SWITCHES. 

05 WS-DATA-REMAINS-SWITCH 
05 WS-PREVIOUS-SALESMAN 
05 WS- PREVIOUS-LOCATION 

01 CONTROL-BREAK-TOTALS. 

05 THIS-SALESMAN-TOTAL 
05 TH IB-LOCATION-TOTAL 
05 COMPANY-TOTAL 

01 TRANSACTION-WORK-AREA. 



PIC X(3) 
PIC X(15) 
PIC X(15) 



PIC 9(6)V99 
PIC S9(6)V99 
PIC S9(6)V99 



VALUE "YES". 
VALUE SPACES. 
VALUE SPACES. 



VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 



05 
05 
05 
05 
05 



05 



FILLER 

TR-SALEBMAN-NAME 

TR-ACCOUNT-NUMBER 

TR-AMOUNT 

TR-CODE 

88 RETURNS VALUE 

88 SALE VALUE 

TR-SALESMAN-LOCATION 



PIC 

PIC 

PIC 

PIC 

PIC 

"R". 

"S". 

PIC 



X(4). 

X(15). 

9(6). 

9(4)V99. 

X. 



X(15). 



01 HDG-LINE-ONE. 



01 



01 



05 FILLER PIC X<15) 

05 FILLER PIC X(24) 

VALUE "SALES ACTIVITY REPORT - 
05 HD6-L0CATI0N PIC X(15) 

05 FILLER PIC X(78) 



HDG-LINE-TWO. 
05 FILLER 
05 FILLER 
05 HDG-NAME 
05 FILLER 
05 FILLER 

HDG-LINE-THREE. 



VALUE SPACES. 



VALUE SPACES. 
VALUE SPACES. 



05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 


X<5) 


VALUE 


SPACES. 


PIC 


X(10) 


VALUE 


"SALESMAN! 


PIC 


X(15). 






PIC 


X ( 25 ) 


VALUE 


SPACES. 


PIC 


X ( 77 ) 


VALUE 


SPACES. 


PIC 


X(10) 


VALUE 


SPACES. 


PIC 


X(ll) 


VALUE 


"ACCOUNT #! 


PIC 


X(15) 


VALUE 


SPACES. 


PIC 


X<7) 


VALUE 


"RETURNS". 


PIC 


X(15) 


VALUE 


SPACES. 


PIC 


X(5) 


VALUE 


"SALES". 


PIC 


X(69) 


VALUE 


SPACES. 



FIGURE 8.11 Incorrect two-level control break program 
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000830 
000840 
000850 
000B60 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001310 
001320 
001321 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
001531 
001540 



01 DETAIL-LINE. 

05 FILLER 

05 DET-ACCOUNT-NUMBER 

05 FILLER 

05 DET-RETURNS 

05 FILLER 

05 DET -SALES 

05 FILLER 



PIC X(14) VALUE SPACES. 

PIC 9(6). 

PIC X(14) VALUE SPACES. 

PIC *Z5ZZ9.99. 

PIC X(ll) VALUE SPACES. 

PIC $Z,ZZ9.99. 

PIC X(69) VALUE SPACES. 



01 



SALESMAN-TOTAL-L I NE . 
05 FILLER 
05 FILLER 



PIC X(25) 
PIC X(21) 



VALUE SPACES. 



VALUE "**# SALESMAN TOTAL 



05 
05 



PRT-SALESMAN-TOTAL 
FILLER 



PIC $Z(3),ZZ9.99CR. 

PIC X(73) VALUE SPACES 



VALUE SPACES. 



01 LOCATION-TOTAL-LINE. 

05 FILLER PIC X(25) 

05 FILLER PIC X(21) 

VALUE "#»* LOCATION TOTAL = ". 

05 PRT-LOCATION-TOTAL PIC *Z (3) , ZZ9. 99CR. 

05 FILLER PIC X(73) VALUE SPACES. 

01 COMPANY-TOTAL-LINE. 



05 
05 



05 
05 



FILLER PIC X(26) VALUE SPACES. 

FILLER PIC X(20) 

VALUE "*** COMPANY TOTAL = ». 
PRT-COMPANY-TOTAL PIC $Z (3) , ZZ9. 99CR. 
FILLER PIC X(73) VALUE SPACES. 



PROCEDURE DIVISION. 
10-CALCULATE-CONTROL-BREAKS . 
OPEN INPUT SALES-FILE 

OUTPUT PRINT-FILE. 
READ SALES-FILE INTO TRANSACTION-WORK-AREA 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 
PERFORM 015-PROCESS-ALL-LOCATIONS 

UNTIL WB-DATA-REMAINS-SWITCH = "NO". 
PERFORM 0e0-WRITE-COMPANY-TOTAL. 
CLOSE BALES-FILE 
PRINT-FILE. 
STOP RUN. 

015-PROCESS-ALL-LOCATIONS. 

PERFORM 065-WRITE-LOCATION-HEADING. 

MOVE TR~SALESMAN-LOCATION TO WS-PREVIOUS-LOCATION. 

PERFORM 020-PROCESS-ALL~SALESMEN 

UNTIL TR-BALESMAN-LOCATION NOT EQUAL WB-PREVIOUS-LOCATION 
OR WS-DATA-REMAINS-SWITCH = "NO". 
PERFORM 075-WR I TE-LOCAT I ON-TOTAL. 

020-PROCESS~ALL-SALEBMEN. 

MOVE TR-SALESMAN-NAME TO WS-PREVIOUS-SALESMAN. 
MOVE ZEROS TO THIS-SALESMAN-TOTAL. 
PERFORM 060-WRI TE-SALESMAN-HEAD I NG . 
PERFORM 030-PROCESS-ALL-TRAN5ACTIONS 

UNTIL TR-SALESMAN-NAME NOT EQUAL WS-PREVIOUS-SALESMAN 
OR WS-DATA-REMAINS-SWITCH = "NO". 
PERFORM 070-WRITE-SALESMAN-TOTAL. 

030-PROCESB-ALL-TRANSACT I ONS. 

MOVE SPACES TO DETAIL-LINE. 

MOVE TR-ACCOUNT-NUMBER TO DET-ACCOUNT-NUMBER. 

IF SALE 

MOVE TR-AMOUNT TO DET-SALES 

ADD TR-AMOUNT TO THIS-BALEBMAN-TOTAL 

ADD TR-AMOUNT TO THIS-LOCATION-TOTAL 

ADD TR-AMOUNT TO COMPANY-TOTAL 
ELSE 

IF RETURNS 

MOVE TR-AMOUNT TO DET-RETURNS 



FIGURE 8.11 Continued 
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001550 SUBTRACT TR-AMOUNT FROM THIS-SALEBMAN-TOTAL 

001560 SUBTRACT TR-AMOUNT FROM THIS-LOCATION-TOTAL 

001570 SUBTRACT TR-AMOUNT FROM COMPANY-TOTAL. 

001580 

001590 WRITE PRINT-LINE FROM DETAIL-LINE 

001600 AFTER ADVANCING 1 LINE. 

001610 READ SALES-FILE INTO TRANSACT I ON-WORK-AREA 

001620 AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 

001630 

001640 060-WR I TE- SALESMAN-HEADING. 

001650 MOVE TR-SALESMAN-NAME TO HDG-NAME. 

001660 WRITE PRINT-LINE FROM HDG-LINE-TWO 

001670 AFTER ADVANCING 2 LINES. 

001680 WRITE PRINT-LINE FROM HDG-LINE-THREE 

001690 AFTER ADVANCING 3 LINES. 

001700 

001710 065 -WR I TE-LOCAT I ON-HEADING. 

001720 MOVE WS-PREVIOUS-LOCATION TO HDG-LOCATION. 

001730 WRITE PRINT-LINE FROM HDG-LINE-ONE 

001740 AFTER ADVANCING PAGE. 

001750 

001760 070-WR I TE-SALEBMAN-TOTAL . 

001770 MOVE THIS-SALESMAN-TOTAL TO PRT-SALESMAN-TOTAL. 

0017B0 WRITE PRINT-LINE FROM SALESMAN-TOT AL-L I NE 

001790 AFTER ADVANCING 2 LINES. 

001800 

001810 075-WRI TE-LOCAT I ON-TOTAL. 

001820 MOVE TH I S-LOCAT I ON-TOTAL TO PRT~LOCATION-TOTAL. 

001830 WRITE PRINT-LINE FROM LOCATION-TOTAL-LINE 

001840 AFTER ADVANCING 2 LINES. 

001850 

00 1 860 080- WR I TE-COMPANY-TOTAL . 

001870 MOVE COMPANY-TOTAL TO PRT-COMPANY-TOTAL. 

001880 WRITE PRINT-LINE FROM COMPANY-TOTAL-LINE 

001890 AFTER ADVANCING 5 LINES. 

FIGURE 8.11 Continued 



PROJECTS 

The personnel office of ABC Electric Company requires summary data on em- 
ployee salaries. This large corporation has offices in several cities in the nation. Its per- 
sonnel are also grouped into functional departments, and a given department can appear 
in more than one city. The employee file has been sorted by location and by department 
within location. It contains a record for every employee in the company with the follow- 
ing data: 



Columns Field Picture 



1-15 


LAST-NAME 


X(15) 


16-20 


SALARY 


9(5) 


21-23 


DEPARTMENT 


9(3) 


24-35 


LOCATION 


X(12) 



Write a program to compute the total salary for each location, as well as the various 
department subtotals within a location. Print a detail line showing all information for 
each employee. Begin the output for each location on a new page. Use the following test 
data: 

ADAMS 1 50001 OOATLANTA 

BAKER 180001 OOATLANTA 

CHARLES 170001 OOATLANTA 

ALLEN 20000200ATLANTA 

SMITH 14000200ATLANTA 
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JONES 

TYLER 

WEBER 

WHEELER 

GOODMAN 

GORDON 

DAVIS 

ELSWORTH 

HAYWARD 

JACKSON 

BABSON 

LEWIS 

HAYES 

JOHNSON 

KELLER 



250001 OOBOSTON 

26000250BOSTON 

18000300BOSTON 

14Q00350BOSTON 

1 20001 OOCHICAGO 

1 25001 OOCHICAGO 

1 50001 50CHICAGO 

1 80001 50CHICAGO 

210001 50CHICAGO 

16000150CHICAGO 

14000150DETROIT 

120001 50DETROIT 

17000300DETROIT 

18000300DETROIT 

19000300DETROIT 
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OVERVIEW This chapter presents two features to simplify COBOL programming: sub- 
programs and the COPY statement. A subprogram is a complete program in 
its own right, which can be executed from within another COBOL program. 
Subprograms are used to divide a complex problem into smaller, more man- 
ageable units so that several programmers may work on a project simultane- 
ously. They also make it possible for an individual programmer to develop a 
set of "tools," i.e., programs, which can be reused from project to project. 

The COPY statement puts pieces of a program, e.g., record descriptions, 
into a common library which can be accessed from any COBOL program. It 
makes previously written code available to any other program without forc- 
ing individual programmers to "reinvent the wheel." The COPY statement 
reduces tedium as well as programmer error. 

We begin with a discussion of both features and then develop complete 
COBOL programs to illustrate the techniques. In so doing, we will review 
table lookups from Chapter 6 and control breaks from Chapter 8. 



COPY 

STATEMENT 



Commercial applications are frequently classified into systems, e.g., inven- 
tory, accounting, and payroll. Each system in turn consists of several pro- 
grams, the files of which are interrelated. Indeed, the same file is often 
accessed by several different programs. The COPY clause enables an installa- 
tion or an individual to build a library of record descriptions and offers the 
following advantages. 



1. Individual programmers need not code the extensive Data Division 
entries that can make COBOL so tedious. Instead, a programmer 
codes an appropriate COPY clause. The COBOL compiler then 
searches a library and brings the proper entries into the COBOL pro- 
gram as though the programmer had written them himself. 

2. Changes are made only in one place, i.e., in the library version. Al- 
though changes in a file or record description occur infrequently, 
they do happen. However, only the library version need be altered 
explicitly, as individual programs will automatically bring in the 
corrected version during compilation. 

3. Programming errors are reduced, and standardization is promoted. 
Since an individual is coding fewer lines, his program will contain 
fewer errors. More importantly, all fields are defined correctly. 
Further, there is no chance of omitting an existing field or errone- 
ously creating a new one. Finally, all programs accessing the same 
file will use identical record descriptions. 

The COPY clause can be used anywhere in a COBOL program, except 
that the text being copied cannot contain another COPY statement. The 
most common use is to bring FDs and/or record descriptions into the Data 
Division. It is also frequently used in the Procedure Division for entire sec- 
tions and/or paragraphs. Use of the COPY clause is shown in Figure 9.1. 

Several items in Figure 9.1 bear mention. First, consider the COPY 
statement itself; compiler statement 45 or CEDIT line 000540. (Recall from 
Chapter 3 that compiler statement numbers are not the same as CEDIT line 
numbers). Compiler statements are numbered consecutively, beginning at 
one and are always incremented by one. CEDIT line numbers need not be 
consecutive, and often have increments greater than one. 
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Compiler statement numbers (consecutive) 
,/CEDIT line numbers 



139 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 



000480 














000490 


01 


CONTROL -BREAK-TOTALS. 








000500 




05 


TH I S -SALESMAN-TOTAL 


PIC S9(6)V99 


VALUE 


ZEROS. 


0005 1 




05 


TH I S-LOCAT I ON-TOTAL 


PIC S9(6:)V99 


VALUE 


ZEROS. 


000520 




05 


COMPANY-TOTAL 


PIC S9(6)V99 


VALUE 


ZEROS. 


000530 








-COPY statement 






000540 




1 COPY " SALESMAN/ CBL " . h 






000001 


01 


TRANSACTION-WORK-AREA. 






000002 




05 


FILLER 


PIC X(4). 






000003 




05 


TR-SALESMAN-NAME 


PIC X(15). 






000004 




05 


TR-ACCOUNT-NUMBER 


PIC 9(6). 






000005 




05 


TR-AMOUNT 


PIC 9(4)V99. 






000006 




05 


TR-CODE 


PIC X. 






000007 






88 RETURNS VALUE 


" R " . 






000008 






88 SALE VALUE 


"S". 






000009 




05 


TR-LOCAT ION-CODE 


PIC X(3). 






000010 




05 


FILLER 


PIC X(12) . 






000550 












000560 


01 


HDG 


-LINE-ONE. 








000570 




05 


FILLER 


PIC X(15) 


VALUE 


SPACES 


000580 




05 


FILLER 


PIC X(24) 






000590 






VALUE "SALES ACTIVITY REPORT - " 






000600 




05 


HDG-LOCATION 


PIC X(15) 


VALUE 


SPACES 



-These entries are brought into the program by the COPY statement 



FIGURE 9.1 The COPY statement 



Figure 9.1 combines statements from two CEBIT files into a single pro- 
gram. The first file contains the COPY statement of compiler line 45 (CEBIT 
line number 540). The COPY statement brings in 10 lines from a second file, 
SALESMAN/CBL as though those statements appeared in the original pro- 
gram. Note that the compiler statement numbers are consecutive, whereas 
the CEDIT line numbers are not. The CEBIT line numbers run from 480 to 
540, 1 to 10, and 550 to 600. The compiler statement numbers go from 39 
to 61. In other words, one file contains CEBIT line numbers 480-540 and 
550-600. The copied entry contains CEBIT line numbers 1-10. When the 
COBOL compiler encounters the COPY statement at line 540, it brings in 
CEBIT line numbers 1-10 from the second file, SALESMAN/CBL. (The 
code in Figure 9.1 has been extracted from a complete program which ap- 
pears later in the chapter.) 



SUBPROGRAMS 



A subprogram is a complete COBOL program which receives control at 
execution time. Subprograms are independent of any other program, and 
contain the four divisions of a regular program. In addition a subprogram 
contains a LINKAGE SECTION in its Bata Bivision, that passes information 
to and from the main program. The same program may call several subpro- 
grams, and a subprogram may in turn call another subprogram. 

Consider Figure 9.2, which depicts skeletal code illustrating the linkage 
between a main (or calling) and sub (or called) program. (Figures 9.4 and 
9.5 at the chapter's end, contain complete COBOL programs to further 
illustrate these points.) The main program contains a CALL statement some- 
where in its Procedure Bivision. When the CALL is executed, control is 
transferred to the first statement in the Procedure Bivision of the subpro- 
gram. The latter continues executing until it encounters an EXIT PRO- 
GRAM statement, at which point control returns to the main program to the 
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MAIN PROGRAM 



IDENTIFICATION DIVISION. 
PROGRAM ID. "MAINPROG". 

* 

DATA DIVISION. 

« 

WORKING-STORAGE SECTION. 
77 FIELD-A PIC 9(31. 

01 FIELD-B PIC X(80). 

PROCEDURE DIVISION. 
CALL "SUBRTN" 



Values of FIELD-A 
and FIELD-B correspond 
to values of FIELD-C 
and FIELD-D respectively 
Mn subprogram. 
The order in which 
arguments are listed 
is critical. 



USING FIELD-A FIELD-B.h 



LINKAGE SECTION 
appears in subprogram, 
and contains passed \ 
parameters 



SUBPROGRAM- 



STOP RUN. 



IDENTIFICATION DIVISION. 
PROGRAM-ID. "SUBRTN", 

DATA DIVISION. 



Passes control to 
first Procedure 
Division statement 



LINKAGE SECTION. 




77 FIELD-C 


PIC 9(3). 


01 FIELD-D 


PIC X(80). 



PROCEDURE DIVISION 

USING FIELD-C FIELD-D. 



Returns control to 
the statement 
under CALL 



EXIT PROGRAM. 



FIGURE 9.2 Skeletal code for a subprogram 

Statement immediately foUowing the initial CALL. The EXIT PROGRAM 
statement must be in a paragraph by itself. 

Data are passed between the main and subprogram via USING clauses, 
which appear in the CALL statement of the main program and in the Pro- 
cedure Division header of the subprogram. Data names that are passed as 
arguments must be defined in the Linkage Section of the subprogram. Any 
CALL statement in the main program contains a USING clause that specifies 
the data on which the subprogram is to operate; for example, CALL 
"SUBRTN" USING FIELD-A FIELD-B. The subprogram in turn contains a 
USING clause in its Procedure Division header, for example, PROCEDURE 
DIVISION USING FIELD-C FIELD-D. 

The data names in the main and subprogram USING clauses are differ- 
ent, but the order of data names within these clauses is critical. The first 
item in the USING clause of the main program, FIELD-A, corresponds to 
the first item in the USING clause of the subprogram, FIELD-C. Both are 
defined as three-position numeric fields. In similar fashion, FIELD-B of the 
main program corresponds to FIELD-D of the subprogram. Note well 
that as either program changes the value of a passed parameter, that value 
changes simultaneously in both programs. This is because only a single 
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FIELD-A 


FIELD-B 




PIC 9(3) 




PICX(80) 


FIELDC 


FIELD-D 



FIGURE 9.3 Storage allocation for passed parameters 

storage location is assigned to both data names; for example, the same 
location is assigned for FIELD-A from the main program and FIELD-C from 
the subprogram. This situation is illustrated in Figure 9.3. 

As can be seen from Figure 9.3, FIELD-A and FIELD-C reference the 
same locations in memory. In similar fashion FIELD-B and FIELD-D also 
reference a common area. The COBOL compiler allocates the same space 
for FIELD-A and FIELD-C, or FIELD-B and FIELD-D. 

The parameters of the subprogram, FIELD-C and FIELD-D, must be 
defined in the Linkage Section of the subprogram. In other words, any data 
name appearing in a Linkage Section already has had space allocated, i.e., 
by the program which called it. Hence, the space for FIELD-C and FIELD-D 
was previously assigned in the main program to FIELD-A and FIELD-B, 
respectively. The USING clauses in both programs estabhsh the correspon- 
dence between the data names. 

Finally, all passed parameters must be defined as either 01 or 77-level 
entries. The order in which arguments are listed is critical. Passing parameters 
in the wrong sequence is one of the most frequent problems in modular sys- 
tems consisting of several programs. 

A COMPLETE We now develop two programs to further illustrate the COPY statement and 
EXAMPLE subprograms. We will expand the double control break problem of Chapter 
8, and review the table lookup procedure of Chapter 6. Specifications are as 
follows: 

Process the salesfile of Chapter 8 (Figure 8.6a) to produce two sets of 
totals; on location and salesman within location. This time, however, the 
incoming record contains a three-position location code which is to be ex- 
panded in the subprogram. In addition, the description of the incoming 
record is to be established via a COPY clause. The intended output is identi- 
cal to that of Figure 8.6b. 

Figure 9.4 contains the main (calling) program and Figure 9.5 the sub 
(called) program. The main program is very similar to the two-level program 
of Chapter 8 (Figure 8.9) with two exceptions. First, the incoming record 
is copied into the program (line 540) and contains a location code rather 
than an expanded location name. Second, the location code is expanded in 
a subprogram. 

Note well the COPY statement of line 540. It references the file 
SALESMAN/CBL (which must exist on a diskette), and which contains the 
10 lines of TRANSACTION-WORK-AREA. The latter is copied into the 
main program, after which the CEDIT line numbers of the main program 
resume at 550. 

Lines 1720-1740 of the main program contain a CALL statement 
which transfers control to the first executable statement of the subprogram. 
(The object program DECODER/COB must also exist on a diskette.) The 
USING clause in the main program contains two parameters, PASSED- 
LOCATION-CODE and PASSED-EXPANDED-LOCATION which corre- 
spond to the two parameters in the USING clause of the subprogram (lines 
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000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 



I DENT I F I CAT ION D I V 1 3 1 ON . 
PROGRAM-ID. hIAINPROe. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 



I NPUT-OUT PUT SECT I ON . 
FILE-CONTROL. 

SELECT SALES-FILE 

ASSIGN TO INPUT 
SELECT PRINT-FILE 

ASSIGN TO PRINT 



'ONELEVEL/DAT" 



■MAINPROG/TXT" 



DATA DIVISION. 

FILE SECTION. 

FD SALES-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 47 CHARACTERS 
DATA RECORD IS SALES-RECORD. 

01 SALES-RECORD PIC X ( 47 ) . 

FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE PIC X(132), 



WORKING-STORAGE SECTION. 

77 PASSED-LOCATION-CODE PIC 

77 PASSED-EXPANDED-LOCATION PIC 

01 PROGRAM-SWITCHES. 

05 WS~DATA-REMA INS-SWITCH 

05 WS-PREVIOUS-SALESMAN 

05 WS-PREVIOUS-LOCATION-CODE 



X(3) . 
X( 15), 



PIC X(3) VALUE "YES". 
PIC X(15) VALUE SPACES. 
PIC X(3) VALUE SPACES. 



)1 CONTROL-BREAK-TOTALS. 
05 THIS-SALESMAN-TOTAL 
05 TH IB-LOCATION-TOTAL 
05 COMPANY-TOTAL 



PIC S9(6)V99 
PIC S9(6)V99 
PIC S9(6)V99 



COPY clause 



000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 




01 



05 
05 

HDG- 

05 

05 

05 
05 



FILLER 
TR-SALESM 

;COUNT-l 
TR-AMOUNT 
TR-CODE 
88 RETURNS 
88 SALE 
TR-LOCATION 
FILLER 



VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 



Copied line numbers are 
out of sequence 



CODE 



X(3). 
X( 12) , 



■LINE-ONE. 

FILLER PIC X(15) 

FILLER PIC X(24) 

VALUE "SALES ACTIVITY REPORT - 

HDG-LOCATION PIC X(15) 

FILLER PIC X(78) 



VALUE SPACES. 



VALUE SPACES. 
VALUE SPACES. 



01 HDG-LINE-TWO. 



05 
05 
05 
05 
05 



FILLER 

FILLER 

HDG-NAME 

FILLER 

FILLER 



01 



HDG-LINE-THREE. 
05 FILLER 
05 FILLER 



PIC 


X(5) 


VALUE 


SPACES. 


PIC 


X(10) 


VALUE 


"SALESMAN: 


PIC 


X(15). 






PIC 


X(25) 


VALUE 


SPACES. 


PIC 


X(77) 


VALUE 


SPACES. 


PIC 


X(10) 


VALUE 


SPACES. 


PIC 


X(ll) 


VALUE 


"ACCOUNT # 



FIGURE 9.4 The calling (main) program 
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000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
00BS10 
000820 
000830 
000840 
000850 
000S60 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 

001060 

001070 
001080 
001090 
001100 
001110 
001120 
001130 

001140 

001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001200 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 



05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



01 DETAIL-LINE. 

05 FILLER 

05 DET-ACCOUNT- 

05 FILLER 

05 DET-RETURNS 

05 FILLER 

05 DET-SALEB 

05 FILLER 



NUMBER 



PIC 
PIC- 
RIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X(15) 
X(7) 
X(15) 
X(5) 
X ( 69 ) 



VALUE SPACES. 
VALUE "RETURNS" 
VALUE SPACES. 
VALUE "SALES". 
VALUE SPACES. 



VALUE SPACES. 



X(14) 

9(6). 

X(14) 

$Z,ZZ9.99. 

X ( 1 1 ) VALUE 

*Z,ZZ9.99. 

X(69) VALUE SPACES. 



VALUE SPACES. 



SPACES. 



VALUE SPACES. 



01 SALESMAN-TOTAL-LINE. 

05 FILLER PIC X<25) 

05 FILLER PIC X(21 ) 

VALUE " *** SALESMAN TOTAL = " . 

05 PRT-BALESMAN-TOTAL PIC *Z ( 3 ) , ZZ9. 99CR. 

05 FILLER PIC X(73) VALUE SPACES. 

1 LOCAT I ON-TOTAL-L I NE . 
05 FILLER 
05 FILLER 

VALUE "*#* LOCATION 
05 PRT-LOCAT I ON- TOTAL 
05 FILLER 



PIC 


X ( 25 ) 


VALUE 


SPACES 


PIC 


X(21 ) 






TOTAL 


= " . 






PIC 


*Z(3), 


ZZ9.99CR. 




PIC 


X ( 73 ) 


VALUE 


SPACES 



01 COMPANY-TOTAL-LINE. 

05 FILLER PIC X(26> VALUE SPACES. 

05 FILLER PIC X(20) 

VALUE "**•* COMPANY TOTAL = ". 
05 PRT-COMPANY-TOTAL PIC *Z < 3) , ZZ9. 99CR. 
05 FILLER PIC X(73) VALUE SPACES. 

PROCEDURE DIVISION. 
010-~CALCULATE-CONTROL-BREAKS. 
OPEN INPUT SALES-FILE 

OUTPUT PRINT-FILE. 
READ SALES-FILE INTO TRANSACTION-WORK-AREA 

AT END MOVE "NO" TO WS-DATA-REMA INS-SWITCH. 
PERFORM 015-PROCESS-ALL-LOCATION3 

UNTIL WS-DATA-REMAINS-SWITCH = "NO". 
PERFORM 0S0-WRITE-COMPANY-TOTAL. 
CLOSE SALES-FILE 
PRINT-FILE. 
STOP RUN. 

015-PROCESS-ALL-LOCATIONS. 

PERFORM 065-WR I TE-LOC AT I ON-HEAD I NG . 

MOVE TR-LOCAT ION-CODE TO WS-PREV I OUB-LOCAT ION-CODE. 

MOVE ZEROS TO THIS-LOCATION-TOTAL. 

PERFORM 020-PROCEBS-ALL-SALESMEN 

UNTIL TR-LOCATION-CODE NOT EQUAL WS-PREVIOUS-LOCATION-CODE 
OR WB-DATA-REMAINS~SWITCH = "NO". 
PERFORM 075-WRITE-LOCATION~TOTAL. 

020-PROCESB-ALL-SALEBMEN. 

MOVE TR-SALE3MAN-NAME TO WS-PREVIOUS-SALESMAN. 
MOVE ZEROS TO THIS-SALESMAN-TOTAL. 
PERFORM 060-WR I TE-SALESMAN-HEAD ING . 
PERFORM 030-PROCESS-ALL-TRANBACTIONB 

UNTIL TR-SALESMAN-NAME NOT EQUAL WS-PREV I OUS-SALESMAN 
OR WB-DATA-REMAINB-SWITCH == "NO". 
PERFORM 070-WRITE-SALESMAN-TOTAL. 

030-PROCESS-ALL.-TRANSACTIONS. 

MOVE SPACES TO DETAIL-LINE. 

MOVE TR-ACCOUNT-NUMBER TO DET-ACCOUNT-NUMBER. 



IF SALE 

MOVE TR-AMOUNT 



TO DET-SALES 



FfGURE9.4 Continued 



173 



001460 
001470 
0014B0 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
0015S0 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
001780 
001790 
001B00 
001810 
001820 
001830 
001840 
001850 
001860 
001870 
001880 
001890 
001900 
001910 
001920 
001930 



ADD TR-AMOUNT TO 
ADD TR-AMOUNT TO 
ADD TR-AMOUNT TO 



THIS-SALESMAN-TOTAL 
TH I S-LOCAT I ON-TOTAL 
COMPANY-TOTAL 



ELSE 



IF RETURNS- 
MOVE TR-AMOUNT TO DET-RETURNS 
SUBTRACT TR-AMOUNT FROM TH IB-SALESMAN-TOTAL 
SUBTRACT TR-AMOUNT FROM THIS-LOCATION-TOTAL 
SUBTRACT TR-AMOUNT FROM COMPANY-TOTAL. 

WRITE PRINT-LINE FROM DETAIL-LINE 

AFTER ADVANCING 1 LINE. 
READ SALES-FILE INTO TRANSACT I ON-WORK-AREA 

AT END MOVE "NO" TO WS-DATA-REMA INS-SWITCH. 

060-WR I TE-SALESMAN-HEAD I NG . 

MOVE TR-SALESMAN-NAME TO HDG-NAME. 
WRITE PRINT-LINE FROM HDG-LINE-TWO 

AFTER ADVANCING 2 LINES. 
WRITE PRINT-LINE FROM HDG-LINE-THREE 

AFTER ADVANCING 3 LINES. 



065' 



-WR I TE-LOCAT I ON-HEADING. 

MOVE TR-LOCATION-CODE TO PASSED-LOCATION-CODE. 
MOVE SPACES TO PASSED-EXPANDED-LOCATION. 



CALL "DECODER/COB" USING 
PA3SED-L0CAT I ON~CODE 
PASSED-EXPANDED-LOCATION. 



-Call to subprogram 



MOVE PASSED-EXPANDED-LOCATION TO HDG-LOCATION. 
WRITE PRINT-LINE FROM HDG-LINE-ONE 
AFTER ADVANCING PAGE. 

070-WRITE-SALESMAN-TOTAL. 

MOVE THIS-SALESMAN-TOTAL TO PRT-SALESMAN-TOTAL, 
WRITE PRINT-LINE FROM SALESMAN-TOTAL-LINE 
AFTER ADVANCING 2 LINES. 

075-WRI TE-LOCAT I ON-TOTAL. 

MOVE THIS-LOCATION-TOTAL TO PRT-LOCATION-TOTAL 
WRITE PRINT-LINE FROM LOCATION-TOTAL-LINE 
AFTER ADVANCING 2 LINES. 

080-WRITE-COMPANY-TOTAL. 

MOVE COMPANY-TOTAL TO PRT-COMPANY-TOTAL. 
WRITE PRINT-LINE FROM COMPANY-TOTAL-LIWE 
AFTER ADVANCING 5 LINES. 

FIGURE 9.4 Continued 



490 and 500 of Figure 9.5). The parameters of the subprogram INCOMING- 
LOCATION-CODE and EXPANDED-PRINT-LOCATION, are defined in the 
Linkage Section indicating that space for these data names has already been 
allocated. 

The subprogram begins execution on line 520. It executes statements 
in much the same way as any other COBOL program. However, when the 
subprogram is finished, it encounters an EXIT PROGRAM statement (line 
590) which returns control to the main program to the line under the 
original CALL. 

A word or two is in order regarding the nature of the subprogram itself. 
Its job is to expand a three-position location code, INCOMING-LOCATION- 
CODE, to a 15-position expanded value, EXPANDED-PRINT-LOCATION. 
The table of codes and corresponding expanded values is defined in lines 
270-420 of the subprogram. Observe the relationship between the VALUE, 
OCCURS, and REDEFINES clauses as originally explained in Chapter 6. 
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000100 

000110 

000120 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

000210 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440] 

000450 

000460 

000470 

000480 

000490 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000570 

000580 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 



IDENTIFICATION DIVISION. 
PROGRAM-ID. DECODER. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-BO. 

DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 PROGRAM-SWITCHES. 

05 WS-LOCATION-SWITCH 

01 PROGRAM-SUBSCRIPTS. 
05 LOCATION-SUB 



01 LOCATION- VALUES. 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 

05 FILLER 



LOCATION-TABLE REDEFINES LOCATION-VALUES. 
05 LOCATION-CODE-AND-VALUE OCCURS 10 TIMES. 

10 LOCATION-CODE PIC X(3). 

10 EXPANDED-LOCATION PIC X(15). 





PIC 


X(3) 


VALUE SPACES. 




PIC 


99. 




PIC 


X(IS) 


VALUE 


"ATLATLANTA 


PIC 


X(18) 


VALUE 


"BOSBOBTON 


PIC 


X(18) 


VALUE 


"CHI CHICAGO 


PIC 


X ( 1 8 ) 


VALUE 


"DETDETROIT 


PIC 


X(18) 


VALUE 


"LOULOUISVILLE 


PIC 


X(18) 


VALUE 


"MINMINNEAPOLIS ". 


PIC 


X(IS) 


VALUE 


"NEWNEWARK 


PIC 


X(IS) 


VALUE 


"NY NEW YORK 


PIC 


X<18) 


VALUE 


"SA SAN ANTONIO ". 


PIC 


X(18) 


VALUE 


"BF SAN FRANCISCO". 



LINKAGE SECTION. 



Linkage Section is in tine called program 



01 INCOMING- 
01 EXPANDED- 



LOCAT ION-CODE 
PRINT-LOCATION 



PIC 
PIC 



PROCEDURE 
USING 



DIVISION 

INCOMING- 

EXPANDED- 



LOCAT ION-CODE 
■PRINT-LOCATION. 



X(3) . 
X( 15) . 

----USING clause is part of the 
Procedure Division header 



400-MAINLINE. 

MOVE "NO" TO WS-LOCATION-SWITCH. 
PERFORM 500-EXPAND-LOCATION-CODE 

VARYING LOCATION-SUB FROM 1 BY 1 

UNTIL WS-LOCATION-SWITCH = "YES". 



450-RETURN-TO-MAIN. 
EXIT PROGRAM. 



-One statement paragraph returns control to main program 



500-EX PAND-LOCAT I ON- CODE . 
IF LOCATION-SUB > 10 

MOVE "UNKNOWN" TO EXPANDED-PRINT-LOCATION 
MOVE "YES" TO WS-LOCATION-SWITCH 
ELSE 

IF INCOMING-LOCATION-CODE = LOCATION-CODE (LOCATION-SUB) 
MOVE EXPANDED-LOCATION (LOCATION-SUB) 

TO EXPANDED-PRINT-LOCATION 
MOVE "YES" TO WS-LOCATION-SWITCH. 



FIGURE 9.5 The sub (called) program 

The table lookup procedure itself moves "NO" to a switch (line 530) 
and then sequentially steps through the table of codes until a match is 
found. (See the PERFORM/VARYING of lines 540-560.) Note well the 
check in line 620 for an invalid code. Observe also that "YES" is moved to 
the previously referenced switch to terminate the search for either an invalid 
code (line 640) or a match (line 690). 
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SUMMARY This chapter dealt with subprograms and the COPY statement. Both tech- 
niques were discussed and illustrated in complete programs. In addition, 
the table lookup procedure of Chapter 6 was reviewed. 

Before leaving the subject of subprograms, we offer one programming 
tip regarding the order of arguments in the USING clauses. Recall that the 
order in which parameters are listed is critical, and further that the picture 
clauses must be identical. One can guarantee that these conditions are met 
by passing a single 01 record that is copied into both programs. Consider 
Figure 9.6, which illustrates both "poor" and "improved" code for passing 
parameters. 

Use of the same COPY clause in both programs eliminates any problem 
with listing arguments in the wrong order and/or inconsistent definition 
through different picture clauses. In addition, passing only a single 01 param- 
eter facilitates coding in the USING clauses and makes them immune to 
change. 



Poor Code: 



CALL"DECODER/COB" 

USING TITLE-CODE, EXPANDED-TITLE, 

LOCATION-CODE, EXPANDED-LOCATION. 



PROCEDURE DIVISION 

USING LS-TITLE-CODE, LS-EXPANDED-TITLE, 

LS-LOCATION-CODE, LS-EXPANDED-LOCATION. 



Improved Code: 



COPY "ARGUMENTS/CBL". 



01 PARAMETER-LIST. 






05 TITLE-CODE 


PIC9(3). 




05 EXPANDED-TITLE 


PICX(15). 


y 


05 LOCATION-CODE 


PIC XX. 


\ 


05 EXPANDED-LOCATION 


PICX(12). 


\ 


CALL "DECODER" 




\ These entries wll 


USING PARAMETER-LIST. 




Vbe copied from a 
/ common file 


LINKAGE SECTION. 




/ 


COPY "ARGUMENTS/CBL". 




/ 


01 PARAMETER-LIST. 




/ 


05 TITLE-CODE 


PIC 9(3). 


/ 


05 EXPANDED-TITLE 


PICX(15). 




05 LOCATION-CODE 


PIC XX. 




05 EXPANDED-LOCATION 


PICX(12). 





PROCEDURE DIVISION 

USING PARAMETER-LIST. 



FIGURE 9.6 Passing parameters to a subprogram 
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Subprograms and the COPY Statement 
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TRUE/FALSE 

1. The Linkage Section appears in tlie subprogram. 

2. Data names in 'CALL . . . USING' and 'PROCEDURE DIVISION . . . USING' must be 
the same. 

3. The Linkage Section appears in the calling program. 

4. A subprogram contains only the Data and Procedure Divisions. 

5. A called program may call another program. 

6. The COPY clause can be used in the Procedure Division. 

7. The COPY statement cannot be used to initialize a table. 

8. Data names passed to a subprogram are limited to 01 or 77-level entries. 

9. The order of arguments in a USING clause is unimportant. 
10. A single program may contain multiple COPY statements. 



SALES ACTIVITY REPORT 



salesman: STOCKWELL 



^Location fails to print on second page 



ACCOUNT #: 
878787 



SALESMAN: FORD 



ACCOUNT #: 
987654 
444333 
555666 



RETURNS 
*l-234.56 

*** SALESMAN TOTAL = * 



SALES 



0.00 



TURNS 




SALES 






$2)000.00 






$1)000. 00 






$2i000.00 


TOTAL = 


= * 


0. 00 


TOTAL = 


= * 


0.00 



*** COMPANY TOTAL = $ 10,532. IC 



I SALES ACTIVITY REPCiRT - ATLANTA I 

V 

SALESMAN: JONES ^Location prints correctly on first page 



ACCOUNT #: 
111111 



SALESMAN: SMITH 



ACCOUNT #: 
100000 
400000 



RETURNS 



*** SALESMAN TOTAL = $ 



RETURNS 
$ 700.00 



SALES 
$ 500.00 
$6,666.66 

0.00 



SALES 
$ 300.00 




-Salesman and location totals are zero 



FIGURE 9.7 Invalid output of main and subprogram 
(see Exercise 2 on page 1 78) 
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EXERCISES 

1. State the advantages, if any, of using a COPY statement rather than "hard coding" a 
table in the program. Describe the necessary steps to modify a table that has been 
defined in a COPY statement after the initial program has been put into production. 

2. Debugging: Figure 9.7 contains invalid output produced by the main and subprograms 
of Figures 9.8 and 9.9, respectively. The input and intended output correspond to 
Figures 8.6a and b. (Figures 9.8 and 9.9 are modified versions of the programs in Fig- 
ures 9.4 and 9.5, virhich appeared in the chapter.) 

Find and correct all errors in both the main and subprograms. 



000100 

00B110 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
0004B0 
000490 
000500 
000510 
000520 
000530 
000540 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
00000B 



IDENTIFICATION DIVISION. 
PROGRAM-ID. EMAINPRO. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT SALES-FILE 

ASSIGN TO INPUT 
SELECT PRINT-FILE 

ASSIGN TO PRINT 



'ONELEVEL/DAT" 



"EMAINPRO/TXT" 



DATA DIVISION. 

FILE SECTION. 

FD SALES-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 47 CHARACTERS 
DATA RECORD IS SALES-RECORD. 

01 SALES-RECORD PIC X ( 47 ) . 

FD PRINT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 132 CHARACTERS 
DATA RECORD IS PRINT-LINE. 

01 PRINT-LINE PIC X(132), 



WORKING-STORAGE SECTION. 

77 PASSED-LOCAT ION-CODE PIC 

77 PASSED-EXPANDED-LOCATION PIC 



X(3) . 
X( 15), 



51 



01 



PROGRAM-SWITCHES. 

05 WS-DATA-REMAINS-SWITCH 

05 WS-PREVIOUS-SALESMAN 

05 WS-PREV I OUS-LOCAT I ON-CODE 



PIC X<3) VALUE "YES". 
PIC X(15) VALUE SPACES. 
PIC X(3) VALUE SPACES. 



CONTROL-BREAK-TOTALS. 
05 THIS-SALESMAN-TOTAL 
05 TH I S-LOCAT I ON-TOTAL 
05 COMPANY-TOTAL 

COPY "SALESMAN/CBL" . 

TRANSACT I ON-WORK-AREA . 

05 FILLER 

05 TR-SALESMAN-NAME 

05 TR-ACCOUNT-NUMBER 

05 TR-AMOUNT 

05 TR-CODE 

88 RETURNS VALUE 
88 SALE VALUE 



PIC S9(6)V99 
PIC B9(6)V99 
PIC S9(6)V99 



PIC X(4). 
PIC X( 15). 
PIC 9(6). 
PIC 9(4)V99. 
X. 



VALUE ZEROS. 
VALUE ZEROS. 
VALUE ZEROS. 



PIC 
"R". 
"B" . 



FIGURE 9.8 Invalid main program 



000009 




05 


TR-LOCATION-CODE 


PIC 


X(3). 






000010 




05 


FILLER 


PIC 


X(12). 






000550 
















000560 


01 


HDG 


-LINE-ONE. 










000570 




05 


FILLER 


PIC 


X(15) 


VALUE 


SPACES. 


000580 




05 


FILLER 


PIC 


X(24) 






000590 






VALUE "SALES ACTIVITY REPORT - 


- " . 




000600 




05 


HDG-LOCATION 


PIC 


X(15) 


VALUE 


SPACES. 


000610 




05 


FILLER 


PIC 


X(78) 


VALUE 


SPACES. 


000620 
















000630 


01 


HDG 


-LINE-TWO. 










000640 




05 


FILLER 


PIC 


X(5) 


VALUE 


SPACES. 


000650 




05 


FILLER 


PIC 


X(10) 


VALUE 


"SALESMAN! 


000660 




05 


HDG-NAME 


PIC 


X(15). 






000670 




05 


FILLER 


PIC 


X ( 25 ) 


VALUE 


SPACES. 


000680 




05 


FILLER 


PIC 


X(77) 


VALUE 


SPACES. 


000690 
















000700 


01 


HDG 


-LINE-THREE. 










000710 




05 


FILLER 


PIC 


X(10) 


VALUE 


SPACES. 


000720 




05 


FILLER 


PIC 


X<11) 


VALUE 


"ACCOUNT # 


000730 




05 


FILLER 


PIC 


X(15) 


VALUE 


SPACES. 


000740 




05 


FILLER 


PIC 


X(7) 


VALUE 


"RETURNS". 


000750 




05 


FILLER 


PIC 


X(15) 


VALUE 


SPACES. 


000760 




05 


FILLER 


PIC 


X(5) 


VALUE 


"SALES". 


000770 




05 


FILLER 


PIC 


X(69) 


VALUE 


SPACES. 


000780 
















000790 


01 


DETAIL-LINE. 










000800 




05 


FILLER 


PIC 


X(14) 


VALUE 


SPACES. 


000810 




05 


DET-ACCOUNT-NUMBER 


PIC 


9(6). 






000820 




05 


FILLER 


PIC 


X(14) 


VALUE 


SPACES. 


000830 




05 


DET-RETURNS 


PIC 


*Z.ZZ9.99. 




000840 




05 


FILLER 


PIC 


X(ll) 


VALUE 


SPACES. 


000850 




05 


DET-SALES 


PIC 


*Z,Z29.99. 




000860 




05 


FILLER 


PIC 


X<69) 


VALUE 


SPACES. 


000870 
















000B80 


01 


SALESMAN-TOTAL-L I NE . 










000890 




05 


FILLER 


PIC 


X(25) 


VALUE SPACES. 


000900 




05 


FILLER 


PIC 


X(21) 






000910 






VALUE "*** SALESMAN 


TOTAL 


■~ " 






000920 




05 


PRT-SALESMAN-TOTAL 


PIC 


*Z(3), 


ZZ9.99CR. 




000930 




05 


FILLER 


PIC 


X(73) 


VALUE SPACES. 


000940 
















000950 


01 


LOCAT I ON- TOT AL-L I NE . 










000960 




05 


FILLER 


PIC 


X(25) 


VALUE SPACES. 


000970 




05 


FILLER 


PIC 


X(21) 






000980 






VALUE "*** LOCATION 


TOTAL 


= " . 






000990 




05 


PRT-LOCAT I ON-TOTAL 


PIC 


$Z(3)> 


ZZ9.99CR. 




001000 




05 


FILLER 


PIC 


X(73) 


VALUE SPACES. 


001010 
















001020 


01 


COMPANY-TOTAL-L I NE . 










001030 




05 


FILLER 


PIC 


X ( 26 ) 


VALUE SPACES. 


001040 




05 


FILLER 


PIC 


X ( 20 ) 






001050 






VALUE '•*** COMPANY TOTAL = 


: " . 






001060 




05 


PRT-COMPANY-TOTAL 


PIC 


*Z(3), 


ZZ9.99CR. 




001070 




05 


FILLER 


PIC 


X<73) 


VALUE SPACES. 


001080 
















001090 


PROCEDURE DIVISION. 










001100 


010- 


-CALCULATE-CONTROL-BREAKS. 








001110 




OPEN INPUT SALES-FILE 










001120 






OUTPUT PRINT-FILE. 










001130 




READ SALES-FILE INTO TRANSACTION-WORK-AREA 




001140 






AT END MOVE "NO" TO 


WB-DATA-REMAINS-SWITCh 


1. 


001150 




PERFORM 015-PROCESS-ALL- 


-LOCATIONS 






001160 






UNTIL WS-DATA-REMAINS-SWITCH = " 


NO" . 




001170 




PERFORM 0S0-WRITE-COMPANY-TOTAL. 






001180 




CLOSE SALES-FILE 










001190 






PRINT-FILE. 










001200 




STOP RUN. 










001210 
















001220 


015- 


-PROCES5-ALL-LOCATI0NB. 











FIGURE 9.8 Continued 
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001230 PERFORM 065-WRITE-LOCATION-HEADING. 

001240 MOVE TR-LOCAT ION-CODE TO WS-PREVIOUB~LOCATION-CODE. 

001250 MOVE ZEROS TO TH I S-LOCAT I ON-TOTAL. 

001260 PERFORM 020-PROCESS-ALL-SALESMEN 

001270 UNTIL TR-LOCATION-CODE NOT E<SUAL WS-PREVIOUS-LOCATION-CODE 

001280 OR WB-DATA-REMAINS-SWITCH = "NO". 

001290 PERFORM 075 -WR I TE-LOCAT I ON-TOTAL. 

001300 

001310 020-PROCESS-ALL-SALESMEN. 

001320 MOVE TR-SALESMAN-NAME TO WS-PREVIOUS-SALESMAN. 

001330 MOVE ZEROS TO THIS-SALESMAN-TOTAL. 

001340 PERFORM 060-WRITE-SALESMAN-HEADING. 

001350 PERFORM 030-PROCESS-ALL~TRANSACTIONS 

001360 UNTIL TR-SALESMAN-NAME NOT EQUAL WS-PREVIOUS-SALESMAIM 

001370 OR WS-DATA-REMAINS-BWITCH = "NO". 

001380 PERFORM 070-WRITE-SALESMAN-TOTAL. 

001390 

001400 030-PROCEBS-ALL-TRANSACTIONS. 

001410 MOVE SPACES TO DETAIL-LINE. 

001420 MOVE TR-ACCOUNT-NUMBER TO DET-ACCOUNT-NUMBER. 

001430 

001440 IF SALE 

001450 MOVE TR-AMOUNT TO DET-SALES 

001460* ADD TR-AMOUNT TO THIS-SALEBMAN-TOTAL 

001470* ADD TR-AMOUNT TO TH I S-LOCAT I ON-TOTAL 

001480 ADD TR-AMOUNT TO COMPANY-TOTAL 

001490 ELSE 

001500 IF RETURNS 

001510 MOVE TR-AMOUNT TO DET-RETURNS 

001520* SUBTRACT TR-AMOUNT FROM THIS-SALESMAN-TOTAL 

001530* SUBTRACT TR-AMOUNT FROM THIS-LOCATION-TOTAL 

001540 SUBTRACT TR-AMOUNT FROM COMPANY -TOTAL. 

001550 

001560 WRITE PRINT-LINE FROM DETAIL-LINE 

001570 AFTER ADVANCING 1 LINE. 

001580 READ SALEB-FILE INTO TRANSACTION-WORK-AREA 

001590 AT END MOVE "NO" TO WS-DATA-REMA INS-SWITCH. 

001600 

00 1 6 1 060-WR I TE-SALESMAN-HE AD I NG . 

001620 MOVE TR-BALEBMAN-NAME TO HDG-NAME. 

001630 WRITE PRINT-LINE FROM HDG-LINE-TWO 

001640 AFTER ADVANCING 2 LINES. 

001650 WRITE PRINT-LINE FROM HDG-LINE-THREE 

001660 AFTER ADVANCING 3 LINES. 

001670 

001680 065-WRITE-LOCATION-HEADING. 

001690 MOVE TR-LOCATION-CODE TO PASSED-LOCATION-CODE. 

001700 MOVE SPACES TO PASBED-EXPANDED-LOCATION. 

001710 

001720 CALL "EDECODER/COB" USING 

001730 PASSED-LOCATION-CODE 

001740 PASBED-EXPANDED-LOCATION. 

001750 

001760 MOVE PABSED-EXPANDED-LOCATION TO HDG-LOCATION. 

001770 WRITE PRINT-LINE FROM HDG-LINE-ONE 

001780 AFTER ADVANCING PAGE. 

001790 

00 1 800 070-WRI TE-SALESMAN-TOTAL . 

001810 MOVE THIS-SALESMAN-TOTAL TO PRT-SALESMAN-TOTAL. 

001820 WRITE PRINT-LINE FROM SALESMAN-TOTAL-LINE 

001830 AFTER ADVANCING 2 LINES. 

001840 

001850 075-WR I TE-LOCAT I ON-TOTAL . 

001860 MOVE THIS-LOCATION-TOTAL TO PRT-LOCAT I ON-TOTAL. 

001870 WRITE PRINT-LINE FROM LOCATION-TOTAL-LINE 

001880 AFTER ADVANCING 2 LINES. 

001890 

001900 080-WRITE-COMPANY-TOTAL. 

001910 MOVE COMPANY-TOTAL TO PRT- COMPANY-TOTAL. 

001920 WRITE PRINT-LINE FROM COMPANY-TOTAL-LINE 

001930 AFTER ADVANCING 5 LINES. 

FIGURE 9.8 Continued 
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000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 



IDENTIFICATION DIVISION. 
PROGRAM-ID. EDECODER. 
AUTHOR. R GRAUER. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 



SOURCE- 
OBJECT- 



COMPUTER. 
COMPUTER. 



TRS-80. 
TRS-80. 



DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 PROGRAM-SWITCHES. 

05 WS-LOCAT ION-SWITCH 



01 



PROGRAM-SUBSCRIPTS. 
05 LOCATION-SUB 



PIC X(3) 



PIC 99. 



01 LOCATION-VALUES. 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



(IS) 
< 18) 
(18) 
( 18) 
(18) 
(18) 
(18) 
(18) 
(18) 
( 18) 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



VALUE SPACES. 



"ATLATLANTA 

" BOSBOSTON 

"CHI CHICAGO 

"DETDETROIT 

"LOULOUISVILLE 

"MINMINNEAPOLIS 

"NEWNEWARK 

"NY NEW YORK 

"SA SAN ANTONIO 

"SF SAN FRANCISCO 



01 LOCATION-TABLE REDEFINES LOCATION-VALUES. 

05 LOCATION-CODE-AND-VALUE OCCURS 10 TIMES. 
10 LOCATION-CODE PIC X(3). 
10 EXPANDED-LOCATION PIC X(15). 

LINKAGE SECTION. 

01 INCOMING-LOCATION-CODE PIC X(3). 

01 EXPANDED-PRINT-LOCATION PIC X(15). 

PROCEDURE DIVISION 

USING INCOMING-LOCATION-CODE 

EXPANDED-PRINT-LOCATION. 

400-MA INLINE. 

PERFORM 500-EXPAND-LOCAT ION-CODE 

VARYING LOCATION-SUB FROM 1 BY 1 

UNTIL WS-LOCAT ION-SWITCH = "YES". 

450-RETURN-TO-MAIN. 
EXIT PROGRAM. 

500-EX PAND-LOCAT I ON-CODE . 
IF LOCATION-SUB > 10 

MOVE "UNKNOWN" TO EXPANDED-PRINT-LOCATION 
MOVE "YES" TO WS-LOCATION-SWITCH 
ELSE 

IF INCOMING-LOCATION-CODE = LOCATION-CODE (LOCATION-SUB) 
MOVE EXPANDED-LOCATION (LOCATION-SUB) 

TO EXPANDED-PRINT-LOCATION 
MOVE "YES" TO WS-LOCATION-SWITCH. 

FIGURE 9.9 Invalid subprogram 
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PROJECTS 



Expand Project 1 from Chapter 8 to include a subprogram that accepts department 
code and returns a department name, which can then appear in the salary report. Use the 
following table of department codes: 



Department Code 


Department Name 


100 


DATA PROCESSING 


150 


LEGAL 


200 


FINANCIAL 


250 


MARKETING 


300 


MANUFACTURING 


350 


ACCOUNTING 



OVERVIEW The reader is assumed to be familiar with the concept of a one-level table 
and table lookups as presented in Chapter 6. This chapter extends that 
knowledge in several ways. 

We begin with the basics of the OCCURS clause, then expand coverage 
to include indexing and variable-length tables. The procedure for table initiali- 
zation and table processing is reviewed, then extended to cover dynamic 
loading of a table and use of SET statements. A complete program is devel- 
oped to contrast various techniques for table lookups and initialization. 

This material is also applicable to two-level tables. We consider the 
different hierarchical references possible for a two-level table and use of 
PERFORM VARYING to manipulate two subscripts. A second program is 
presented to solidify these concepts. 

Finally, we consider implications for establishing three-level tables. The 
use of PERFORM VARYING for three subscripts is shown, as is the use of 
three OCCURS clauses. The author refrains, however, from presenting a 
complete program. 



THE OCCURS The OCCURS clause was first introduced in Chapter 6. We now review that 
CLAUSE material and, in addition, introduce some new features associated with this 
statement. Syntactically, the OCCURS clause has the format: 



OCCURS 



integer-1 TIMES \ 

integer-1 TO integer-2 TIMES DEPENDING ON data-name-3 

[INDEXED BY index-name] 



The function of the OCCURS clause is to allocate space for a table. It 
may appear at either the elementary (Figxire 10.1a) or group level (Figure 
10.1b). Figures 10.1a and 10.1b allocate the same amount of space. The dif- 
ference is the way space is physically assigned as per the storage schematic. 

In Figure 10.1a, LOCATION-TABLE refers collectively to the 150 
positions of both tables and is not used with a subscript. Procedure Division 
references to either LOC-CODE or LOC-NAME, require a subscript to indi- 
date the particular reference. 

In Figure 10.1b, LOCATION-TABLE is defined with an OCCURS 
clause and consequently requires a subscript if it is referenced in the Pro- 
cedure Division. LOCATION-TABLE (1), for example, refers to the 15 posi- 
tions of LOC-CODE (1) and LOC-NAME (1) collectively. 

As stated previously, the OCCURS clause may appear at either the ele- 
mentary or group level, and neither technique offers any distinct advantage. 
The reader should simply choose that with which he or she is most comfort- 
able, and which best fits the particular situation. 

The OCCURS clause also makes it possible to create a variable-length 
table, and consequently variable -length records. Until now, all records have 
been fixed length; i.e., they contained a constant number of characters. 
Fixed-length records, however, frequently result in wasted space on the stor- 
age medium. Consider: 

05 CHECKS-WRITTEN OCCURS 1 TO 100 TIMES 
DEPENDING ON NUMBER-OF-CHECKS. 
10 CHECK-NUMBER PIC 9(3). 

10 CHECK-AMOUNT PIC 9(5). 
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Table Processing 
COBOL Code: 
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05 LOCATION-TABLE. 

10 LOC-CODE OCCURS 10 TIMES 
10 LOC-NAME OCCURS 10 TIMES 



PICX(3). 
PICX(12). 



Storage Allocation: 



LOCATION-TABLE 


CODE 
(1) 


CODE 
(2) 


• • a 


CODE 
(10) 


NAME (1) 


NAME (2) 


• • • 


NAME (10) 





















































-J 











































FIGURE 10.1a With elementary item 



COBOL Code: 



05 LOCATION-TABLE OCCURS 10 TIMES. 
10 LOC-CODE PICX{3). 

10 LOC-NAME PICX(12). 



Storage Allocation: 



LOCATION-TABLE 


LOCATION-TABLE (1) 


LOCATION-TABLE (2) 




LOCATION-TABLE (10) 


CODE 

(1) 


NAME (1) 


CODE 
(2) 


NAME (2) 


• aa 


CODE 

(10) 


NAME (10) 


















































































_ 













FIGURE 10.1b With group item 
FIGURE 10.1 The OCCURS clause 



In this example, each incoming record contains from 1 to 100 checks, 
depending on the data-name NUMBER-OF-CHECKS which is a separate field 
contained elsewhere in the record. Since each check requires eight storage 
positions (three for the number and five for the sraiount), the actual space re- 
quired in each record varies from 8 to 800 positions. If fixed-length records 
are used, then every record in the file requires the maximum space; i.e., 800 
characters, even though much of that is not used. Variable-length tables pro- 
vide for more efficient use of space by allocating only as much as necessary 
in individual records, and should be used where appropriate. 

The OCCURS clause also provides for an optional index, in that the IN- 
DEXED BY clause is enclosed in brackets. An index is like a subscript, ex- 
cept that it is defined with a table rather than as a separate entry in Working- 
Storage. An index does not provide any additional logic capability over a 
subscript. It does, however, result in more efficient machine language and 
consequently is preferred by some programmers. 
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Chapter 10 



If indexes are used, they must be unique for every table; i.e., the index 
defined with table-1 cannot be used to manipulate table-2. Further, indexes 
cannot be initialized or incremented with a MOVE or ADD statement; rather 
they require a new verb, SET, which is illustrated later in the chapter. (In- 
dexes are required if the programmer utilizes the COBOL SEARCH or 
SEARCH ALL; statements which facilitate implementation of a table lookup 
procedure. These statements, however, are not implemented under the cur- 
rent release of TRS-80 COBOL, Version 1.3B, and consequently are not dis- 
cussed further.) 



TABLE 

LOOKUPS-A 

REVIEW 



A common use of the OCCURS clause is for "table lookups"; i.e., conversion 
of an incoming code to an expanded value. This procedure was first pre- 
sented in Chapter 6, and is reviewed in Figure 10.2. 

The Data Division entries of Figure 10.2 initialize a table of 10 location 
codes (3 characters each) and the corresponding expanded names (15 charac- 
ters). Recall from Chapter 6 that the same COBOL entry cannot contain 
both an OCCURS and a VALUE clause, and hence the need for the REDE- 
FINES statement. This in turn assigns a new name to previously allocated 
space, links the OCCURS and VALUE clauses together, and makes the sub- 
sequent table lookup possible. 

The table lookup itself is straightforward. The VARYING clause of the 



01 LOCATION-VALUES 



05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 


05 


FILLER 



ir 



Successive VALUE clauses initialize memory locations 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X(18 
X(18 
X(1B 
X( 18 
X(1B 
X( 18 
X(18 
X( 18 
X(18 
X( 18 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



'ATLATLANTA 

" BOSBOSTON 

'CHI CHICAGO 

'DETDETROIT 

'LOULOUIBVILLE 

'MINMINNEAPOLIS 

'IMEWNEWARK 

'NY NEW YORK 

'SA BAN ANTONIO 

'SF SAN FRANCISCC 



:>" 



01 LOCATION-TABLE REDEFINES LOCATION-VALUES. 



05 LOCATION-CODE-AND-VALUE OCCURS 
10 LOCATION- CODE PIC X(3). 
10 EXPANDED-LOCATION PIC X<15) 



TIMES. 

Gives another name to previously allocated space 



PROCEDURE DIVISION. 
010-PREPARE-REPORT. 

MOVE "NO" TO FOUND-LOCATION-SWITCH./ 

PER FORM 050-SEARCH-LOCAT I ON-TABLE / 

[VARYING LOCATION-SUB FROM 1 BY 1 

UNTIL FOUND-LOCATION-SWITCH ■■ 



Subscript is automatically initialized and incremented 



'YES" 



^Terminates search for an invalid code 



050-SEARCH-LOCAT I ON-TABLE. 
IF LOCATION-SUB > 10 

MOVE "UNKNOWN" TO PRT-LOCATION y 
I MOVE "YES" TO FOUND-LOCATION-SWITCH | 
ELSE 

IF LOCATION-CODE (LOCATION-SUB) = EMP-LOC-CODE 

MOVE EXPANDED-LOCATION (LOCATION-SUB ) TO PRT-LOCATION 
I MOVE "YES" TO FOUND-LOCATION-SWITCH. I 



^Terminates search when a match is found 
FIGURE 10.2 Table lookup with PERFORM VARYING 
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PERFORM statement automatically initializes and increments the value of 
LOCATION-SUB. (The original code in Figure 6.9 used a MOVE and ADD 
statement to initialize and increment, respectively.) Note well there are two 
conditions for terminating the table lookup; i.e., either an unknown code or 
a match on EMP-LOC-CODE. Finally, observe how FOUND-LOCATION- 
SWITCH is set to "NO" immediately prior to the PERFORM VARYING 
statement. 



INITIALIZING 

TABLES 

DYNAMICALLY 



The table of Figure 10.2 is "hard coded" into the program, a less than opti- 
mal technique. Assume, for example, that the location table is used by three 
other programs and that the table changes. It is then necessary to alter all 
four programs which reference the table; a time-consuming and error-prone 
procedure. 

A superior method would be to initialize the location table via a COPY 
clause. This eliminates the need for multiple changes in that only the COPY 
clause is altered. Even this technique is not without problems because all 
four programs would have to be recompiled, even if they were not altered 
explicitly. (Remember, the COPY clause brings in elements during compila- 
tion rather than execution.) The ideal technique, therefore, is to initialize a 
table dynamically, by reading values from a file when the program is exe- 
cuted. This is shown in Figure 10.3. 



01 TITLE- TABLE. 
05 



' Variable length table 



TITLES OCCURS 1 TO 100 TIMES 
DEPENDING ON NUMBER-OF-TITLEB 



INDEXED BY TITLE-INDEX. 
10 TITLE-CODE PIC 9(3). 
10 TITLE-VALUE PIC X(17). 



PROCEDURE DIVISION. 



' Initial read for title file 



020-INITIALIZE-TITLE-TABLE. 
OPEN INPUT TITLE-FILE.^ 



READ TITLE-FILE 

AT END MOVE "YES" TO TITLE-FILE-SWITCH. 



PERFORM 030-READ-TITLE-FILE 

VARYING TITLE-SUB FROM 1 BY 1 
UNTIL TITLE-FILE-SWITCH = 
CLOSE TITLE-FILE. 



"YES" 



030-READ-T I TLE-F I LE 



IF TITLE-SUB 



ELBE 




Checks that table size is not exceeded 



Increments number of table entries 



MOVE "YES" TO TITtE-FILE-SWITCH 
DISPLAY "ERROR X TITLE TABLE EXCEEDED" 



lADD 1 TO NUMBER-OF-TITLESi 

MOVE IN-TITLE-CODE TO TITLE-CODE (TITLE-SUB) 

[move IN-TITL E-VALUE to title-value (TITLE-SUB), 
READ TITLE-FILE 

AT END MOVE 'lYEB" TO TITLE-FILE-SWITCH. 



-Moves value from incoming file to table 
FIGURE 10.3 Initializing a table by reading from a file 
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The Data Division entries of Figure 10.3 contain an OCCURS clause 
which allocates space for a variable -length table. There are no VALUE 
clauses, however, because the table will be filled from an external file. 

The Procedure Division opens TITLE-FILE, reads it once, and then 
performs the paragraph 030-READ-TITLE-FILE until it is empty. This para- 
graph first checks that the table size is not exceeded, then moves the title 
code and value just read to the current position in the table. Observe that 
TITLE-SUB is incremented automatically in the PERFORM VARYING 
statement, but that NUMBER-OF-TITLES is incremented explicity. Finally, 
note both the initial read for TITLE-FILE, and that the last statement of 
the performed routine is a second read. This is consistent with the structured 
programming syntax we have followed throughout. 



THE SET Figure 10.4 illustrates an alternative way of implementing a table lookup; 
STATEMENT specifically it uses indexes rather than subscripts. An index is very much like 
a subscript in that it permits one to "step through a table." The difference is 
in the generated machine language—indexing provides more efficient code 
than subscripts; indexes do not, however, provide any additional logic capa- 
bility and in that sense are redundant with subscripts. 

If indexes are used, they must be defined with the table they reference 
(see Figure 10.4), rather than in Working-Storage. Further, every table re- 
quires its own unique index, whereas a single subscript can be used with 
several different tables. (The latter, however, is not desirable from a docu- 
mentation viewpoint, and hence is not encouraged as was explained in Chap- 
ter?.) 

/Index is defined with table 

01 TITLE-TABLE. / 

05 TITLES OCCURS 1 TO 100 TIMES 

DEPEND I N^ON NUMBER - OF-T I TLES 
llNDEXED BY TITLE-INDEX . I 



10 TITLE- CODE PIC 9(3). 
10 TITLE-VALUE PIC X(17). 



PROCEDURE DIVISION. 

^,,^ Initializes index 

MOVE "NO" TO FiHMD^TITLE-SWITCH. 



ISET TITLE-INDEX TO l.| 
PERFORM 060-SEARCH-T I TLE-TABLE 

UNTIL FOUND-TITLE-BWITCH = "YES" 



060-SEARCH-T I TLE-TABLE . 

IF TITLE- INDEX > NUMBER-OF-TITLES 
MOVE "UNKNOWN" TO PRT-TITLE 
MOVE "YES" TO FOUND-TITLE-SWITCH 
ELSE 

IF TITLE-CODE (TITLE-INDEX) = EMP-TITLE-CODE 

MOVE TITLE-VALUE (TITLE-INDEX) TO PRT-TITLE 
MOVE "YES" TO FOUND-TITLE-SWITCH 
ELSE 

[set TITLE- INDEX UP BY 1 .| 



"■Increments index 
FIGURE 10.4 Table lookup with SET statements 
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Indexes are manipulated in a SET statement, and may not be refer- 
enced in either a MOVE or an ADD. Compare the table lookup of Figure 
10.4 with the code of Figure 6.9. The latter initialized a subscript, WS- 
MAJOR-SUB, with a MOVE statement and subsequently incremented the 
subscript with an ADD statement. These operations are accomplished in 
Figure 10.4 by the statements: 

SET TITLE-INDEX TO 1 

and 

SET TITLE-INDEX UP BY 1 

to initialize and increment, respectively. The remainder of Figure 10.4 paral- 
lels the logic of Figure 6.9, and should pose no difficulty. 

One last point— although a table is defined with an index, it may still 
be referenced with a subscript. The code in Figure 10.3, for example, used 
a subscript, TITLE-SUB, to reference the TITLES table, even though the 
latter was defined with an index. The converse is not true, however. That 
is, one may not use indexes to process a table unless it has first been defined 
with an index. 



ACOIVIPLETE Information on table processing is summarized via the COBOL program of 
EXAMPLE Figure 10.5. Processing specifications are as follows: 

Input: A file of employee records, with 
each record containing a code for 
the employee's title, location, 
education, and performance. Test 
data are shown in Figure 10.6a. 
Processing: Initialize the table of title codes and 

expanded values by reading from 
the file of Figure 10.6b. Process the 
file of incoming employee records 
to produce a set of "personnel 
profiles" with expanded informa- 
tion for each employee. 
Output: The set of employee profiles as de- 

scribed above. The printed output 
should also contain the employee's 
percent salary increase (where 
appropriate) and the elapsed time 
(in months) between increases. 
Partial output from the program 
is shown in Figure 10.6c. 

Figure 10.5 contains the completed program for table processing. The in- 
coming employee file is defined in Unes 380-520. The employee record 
contains a one-level table for salary data, and two occurrences are stored. 
EMP-SALARY (1) refers to the employee's present salary, whereas EMP- 
SALARY (2) is the previous salary. These data names are used in the COM- 
PUTE statement of lines 2920 and 2930, and the reader is urged to verify 



000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 



IDENTIFICATION DIVISION. 
PROGRAM- ID. TABLES. 
AUTHOR. R GRAUER. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 



TRS-80. 
TRS-80. 



'Contains the file of title codes 
for table initialization 



SELECT TITLE-FILE 

ASSIGN TO INPUT "TITLES/DAT" 



SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT "TABLES/DAT", 
SELECT PRINT-FILE 

ASSIGN TO PRINT "TABLES/TXT", 

DATA DIVISION. 
FILE SECTION. 



FD 



01 



FD 



01 



TITLE-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 20 CHARACTERS 

DATA RECORD IS SALES-RECORD. 

TITLE-RECORD. 

05 IN-TITLE-CODE PIC 9(3). 

05 IN-TITLE-VALUE PIC X(17), 

EMPLOYEE-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 50 CHARACTERS 

DATA RECORD IS EMPLOYEE-RECORD. 

EMPLOYEE-RECORD. 

05 EMP-SOC-SEC-NUMBER 

05 EMP-LAST-NAME 

05 EMP-LOC-CODE 

05 EMP-TITLE-CODE 

05 EMP-EDUCAT ION-CODE 

05 EMP-PERFORMANCE-CODE 



PIC 9(9). 

PIC X( 15) . 

PIC X ( 3 ) ., Table for employee's 

PIC 999./ salary data 

PIC 9. 

PIC X. 



05 EMP-SALARY-DATA OCCURS 2 TIMES. 
10 EMP-SALARY PIC 9(5), 
10 EMP-SALARY-MONTH PIC 99. 
10 EMP-SALARY-YEAR PIC 99. 



FD 



PRINT-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 132 CHARACTERS 

DATA RECORD IS PRINT-LINE. 

PRINT-LINE PIC X(132), 



WORKING-STORAGE SECTION. 



^Associated with title table (See line 980) 



01 NUMBER-OF-TITLES 



PIC 9(3) 



VALUE ZEROS. 



01 PROGRAM-SWITCHES. 

05 EMPLOYEE-FILE-SWITCH PIC X(3) 
05 TITLE-FILE-SWITCH PIC X(3) 
05 FOUND-LOCATION-SWITCH PIC X(3) 
05 FOUND-TITLE-SWITCH PIC X(3) 



01 


PROGRAM-SUBSCRIPTS. 






05 LOCATION-SUB 


PIC 99, 




05 TITLE-SUB 


PIC 99. 



VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 



-Each table has its own subscript 



01 SALARY- CALCULATIONS. 

05 PERCENT-SALARY- INCREASE PIC 99V9. 
05 MONTHS-BETWEEN- INCREASE PIC 99. 



LOCATION- VALUES. 
05 FILLER 
05 FILLER 
05 FILLER 
05 FILLER 



PIC X(18) 
PIC X(18) 
PIC XdS) 
PIC XdS) 



VALUE 
VALUE 
VALUE 
VALUE 



"ATLATLANTA 
"BOSBOSTON 
"CHI CHICAGO 
"DETDETROIT 



FIGURE 10.5 Table processing 
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000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000950 
000960 
000970 
000980 
000990 

001000 
001010 

001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
00 1380 
001390 



01 



01 



01 



01 



01 



01 



01 



01 



05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC X(18) VALUE "LOULOUISVILLE 

PIC X(IS) VALUE "MIIMMINNEAPOLIB 

PIC X(18) VALUE "NEWNEWARK 

PIC X(18) VALUE "NY NEW YORK 

PIC X(18) VALUE "SA SAN ANTONIO 

PIC X(18) VALUE "SF SAN FRANCISCO 



LOCATION-TABLE REDEFINES LOCATION-VALUES. 
05 LOCATION-CODE-AND-VALUE OCCURS 10 TIMES. 

10 LOCATION-CODE PIC X(3). 

10 EXPANDED-LOCATION PIC X(15). 



ICOPY " EDUCATE/ CBL " .| — 

EDUCATION-TABLE. 

05 EDUCATION-VALUES. 

10 FILLER 

10 FILLER 

10 FILLER 

10 FILLER 

10 FILLER 

10 FILLER 

10 FILLER 

10 FILLER 



-Copy initializes table 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X( 10) 
X(10) 
X(10) 
X( 10) 
X(10) 

X< 10) 

X(10) 
X(10) 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



'SOME H.S. " 
"HS DIPLOMA" 
"2YR DEGREE" 
"4YR DEGREE" 
"SOME GRAD " 
"MASTERS 
•PH. D. 
"OTHER 



05 EDU-NAME REDEFINES EDUCATION-VALUES 
OCCURS 8 TIMES PIC X<10). 



TITLE-TABLE. 

05 TITLES OCCURS 1 TO 100 TIMES 

DEPENDING ON NUMBER-OF-TITLES 



INDEXED BY TITLE-INDEX.k 



No further definition is required 



10 TITLE-CODE 
10 TITLE-VALUE 

PRINT-LINE-ONE. 
05 FILLER 
05 FILLER 

VALUE "PERSONNEL 
05 FILLER 

PRINT-LINE-TWO. 

05 FILLER 

05 PRT--LAST-NAME 

05 FILLER 

05 FILLER 

05 PRT-SOC-SEC-NUMBER 

05 FILLER 

PRINT-LINE-THREE. 

05 FILLER 

05 PRT-LOCATION 

05 FILLER 

05 FILLER 

05 PRT-TITLE 

05 FILLER 



51 PRINT-LINE-FOUR. 

05 FILLER 

05 PRT-EDUCATION 

05 FILLER 

05 FILLER 

05 PRT-PERFORMANCE 

05 FILLER 



PIC 9(3). 
PIC X(17) . 



PIC X(22) 
PIC X(17) 
PROFILE". 
PIC X(93) 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



PIC 

PIC 
PIC 
PIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X(6) 

X<15) . 

X ( 25 ) VALUE 

X<13) VALUE 

999B99B9999. 

X(62) VALUE 



VALUE SPACES. 



VALUE SPACES. 



VALUE "NAME 



SPACES. 

"SOC SEC NUM: 

SPACES. 



X(10) 

X<15), 

X(21 ) 

X(7) 

X(17). 

X<62) 



X( 11 ) 

X(10). 

X(25) 

X(13) 

X( 11 ). 

X<62) 



PRINT-LINE-FIVE. 
05 FILLER 
05 FILLER 
05 FILLER 



PRINT-LINE- 
05 FILLER 



SIX. 



PIC X(25) 
PIC X(ll) 
PIC X<96) 



PIC X(5) 



VALUE "LOCATION! ". 

VALUE SPACES. 
VALUE "TITLE: ". 

VALUE SPACES. 



VALUE "EDUCATION: ". 

VALUE SPACES. 
VALUE "PERFORMANCE: 

VALUE SPACES. 



VALUE SPACES. 
VALUE "SALARY DATA" 
VALUE SPACES. 



VALUE SPACES. 
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001400 

001410 

001420 

001430 

001440 

001450 

001460 

001470 

001480 

001490 

001500 

001510 

001520 

001530 

001540 

001550 

001560 

001570 

001580 

001590 

001600 

001610 

001620 

001630 

001640 

001650 

001660 

001670 

001680 

001690 

001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

0017S0 

001790 

001800 

001810 

00 1820 

001830 

001840 

001850 

001860 

001870 

00 1880 

001890 

001900 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 

001990 

002000 

002010 

002020 

002030 

002040 

002050 

002060 

002070 

002080 

002090 

002100 



05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



01 PRINT-SALARY-LINE. 

05 FILLER 

05 PRT-SALARY 

05 FILLER 

05 PRT-SALARY-MONTH 

05 PRT-BLABH 

05 PRT-SALARY-YEAR 

05 FILLER 

05 PRT-SALARY- INCREASE 

05 FILLER 

05 PRT-SALARY-MBI 

05 FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X(6) 
X(10) 
X(4) 
X<10) 
X( 10) 
X( 10) 
X(3) 
X(74) 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



"SALARY". 

SPACES. 

"DATE". 

SPACES. 

"7. INCREASE" 

SPACES. 

"MBI". 

SPACES. 



X(4) VALUE SPACES. 
$99)999. 



X(9) 

Z9. 

X 

Z9. 

X( 12) 

Z9.99. 

X(13) 

12. 

X(75) 



VALUE SPACES. 



VALUE " / " , 



VALUE SPACES. 



VALUE SPACES. 



VALUE SPACES. 



PROCEDURE DIVISION. 
010-PREPARE-REPORT. 

PERFORM 020- INITIAL I ZE-TITLE-TABLE. 

OPEN INPUT EMPLOYEE-FILE 
OUTPUT PRINT-FILE. 



READ EMPLOYEE-FILE 

AT END MOVE "YES" TO EMPLOYEE-FILE-SWITCH, 



PERFORM 040-WR I TE-PERSONNEL-PROF I LEB 

UNTIL EMPLOYEE-FrfcKE-SWITCH = "YES". 
CLOSE EMPLOYEE-FILE \, . . , 

PRINT-FILE Initial read of employee file 

STOP RUN. 



020- 



-TABLE. 
-FILE. 



INITIALIZE-TITLE- 
OPEN INPUT TITLE- 
READ TITLE-FILE 

AT END MOVE "YES" TO TITLE-FILE-SWITCH. 
PERFORM 030~READ-TITLE-FILE 

VARYING TITLE-SUB FROM 1 BY 1 

UNTIL TITLE-FILE-SWITCH = "YES". 

CLOSE TITLE-FILE. ^ .. .. , 

^.^Explained in detail - see Figure 10.3 



030-READ-TITLE-FILE. 



IF 



TITLE-SUB > 100 
MOVE "YES" TO TITLE-FILE-SWITCH 
DISPLAY "ERROR - TITLE TABLE EXCEEDED" 

ELSE 

ADD 1 TO NUMBER-OF-TITLEB 

MOVE IN-TITLE-CODE TO TITLE-CODE (TITLE-SUB) 

MOVE IN-TITLE-VALUE TO TITLE-VALUE (TITLE-BUB), 

READ TITLE-FILE 

AT END MOVE "YES" TO TITLE-FILE -SWITCH. 

040-WRITE-PERBONNEL-PROFILE5. 

WRITE PRINT-LINE FROM PRINT-LINE-ONE 

AFTER ADVANCIN(5 PAGE. ^ Edits social security number 



MOVE EMP-LAST-NAME TO 
MOVE EMP-SOC-SEC-NU 




!T-LABT-NAME. 
;R TO PRT-SOC-SEC-NUMBER. 



INSPECT PRT-SOC-SEC-NUMBER 

REPLACING ALL " " BY "-". 



WRITE PRINT-LINE FROM PRINT-LINE-TWO 

AFTER ADVANCING 2 LINES. / Initiates location search 



MOVE "NO" TO FOUND-LOCATIpN-SWITCH 



PERFORM 050-SEARCH-LOCAT I ON-TABLE 

VARYING LOCATION-SUB FROM 1 BY 1 
UNTIL FOUND-LOCATION-SWITCH = 



"YES" 
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PRINT- 


-LINE- 


-FOUR 


LINES. 






PRINT- 


-LINE- 


-FIVE 


LINES. 






PRINT- 


■LINE- 


-BIX 


LINES. 







002110 

002120 MOVE "NO" TO FOUND-TITLE- SWITCH. 

002130 SET TITLE-INDEX TO 1. 

002140 PERFORM 060-SEARCH- TITLE- TABLE 

002150 UNTIL FOUND-TITLE -SWITCH == "YES". 

002160 

002170 WRITE PRINT-LINE FROM PRINT-L INE- THF?EE 

002180 AFTER ADVANCING 2 LINES. 

002190 

002200 PERFORM 070-EXPAND-EDUCATION-CODE. 

002210 PERFORM 080-EXPAND-PERFORMANCE-CODE. 

002220 WRITE PRINT-LINE FROM 

0022riia AFTER ADVANCING 2 

002240 

002250 WRITE PRINT-LINE FROM 

002260 AFTER ADVANCING 5 

002270 

002280 WRITE PRINT-LINE FROM 

002290 AFTER ADVANCING 2 

002300 

002310 MOVE SPACES TO PRINT-SALARY-LINE. 

002320 MOVE "/" TO PRT-SLASH. 

002330 MOVE EMP-SALARY (1) TO PRT-SALARY. 

002340 MOVE EMP-SALARY-MONTH (1) TO PRT-SALARY-MONTH. 

002350 MOVE EMP-SALARY-YEAR < 1 ) TO PRT-BALARY-YEAR. 

002360 ^_,-— ' Avoids division bv zero 

002370 llF EMP-SALARY (2) > 0| 

002380 PERFORM 090-EVALUATE~SALARY-INCREASES 

002390 MOVE PERCENT-SALARY- INCREASE TO PRT-SALARY- INCREASE 

002400 MOVE MONTHS-BETWEEN-INCREASE TO PRT-SALARY-MBI 

002410 WRITE PRINT-LINE FROM PRINT-SALARY-LINE 

002420 AFTER ADVANCING 2 LINES 

002430 MOVE SPACES TO PRINT-SALARY-LINE 

002440 MOVE "/" TO PRT-SLASH 

002450 MOVE EMP-SALARY (2) TO PRT-SALARY 

002460 MOVE EMP-SALARY-MONTH (2) TO PRT-SALARY-MONTH 

002470 MOVE EMP-SALARY-YEAR (2) TO PRT-SALARY-YEAR. 

002480 WRITE PRINT-LINE FROM PRINT-SALARY-LINE 

002490 AFTER ADVANCING 1 LINE. 

002500 READ EMPLOYEE-FILE 

002510 AT END MOVE "YES" TO EMPLOYEE-FILE-SWITCH. 

002520 

002530 |B 50-SEARCH-LOCAT I ON-TABLE ."k 

002540 IF LOCATION-SUB > 10 ^ Explained in detail - see Figure 10.2 

002550 MOVE "UNKNOWN" TO PRT-LOCATION 

002560 MOVE "YES" TO FOUND-LOCATION-SWITCH 

002570 ELSE 

002580 IF LOCATION-CODE (LOCATION-SUB) = EMP-LOC-CODE 

002590 MOVE EXPANDED-LOCATION (LOCATION-SUB) TO PRT-LOCATION 

002600 MOVE "YES" TO FOUND-LOCATION-SWITCH. 

002610 

002620 060-SE ARCH-T I TLE-TABLE . 

002630 IF TITLE- INDEX > NUMBER-OF-TITLES 

002640 MOVE "UNKNOWN" TO PRT-TITLE 

002650 MOVE "YES" TO FOUND-TITLE-SWITCH 

002660 ELSE 

002670 IF TITLE-CODE (TITLE-INDEX) = EMP-TITLE-CODE 

002680 MOVE TITLE- VALUE (TITLE-INDEX) TO PRT-TITLE 

002690 MOVE "YES" TO FOUND-TITLE-BWITCH 

002700 ELSE 

002710 SET TITLE-INDEX UP BY 1 ./ Checks for invalid location code 

002720 

002730 070-EX PAND-EDUCATION-CODE. 

002740 [iF"eMP-EDUCATION-CODE < 1 OR EMP-EDUCATION-CODE > a| 

002750 MOVE "UNKNOWN" TO PRT-EDUCATION 

002760 ELSE . 

002770 p:iVE EDU-NAME (EMP-EDUCATION-CODE) TO PRT-EDUCATION.| 

002780 ~~~-~~-.,^_^ 

002790 080~EX PAND-PERFORNANCE CODE . direct access to table entries 
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002S00 
002810 
002820 
002830 
002840 
002850 
002860 
002870 
002880 

002890 

002900 "^^ ' 

002910 090-EVALUATE-SALARY-- INCREASES. Expands performance code 

002920 COMPUTE PERCENT-SALARY-INCREASE 



IF EMP-PERFORMANCE-CODE = "E" 

MOVE "EXCELLENT" TO PRT-PERFORMANCE 
ELSE 

IF EMP-PERFORMANCE-CODE = "A" 

MOVE "AVERAGE" TO PRT-PERFORMANCE 
ELSE 

IF EMP-PERFORMANCE-CODE = "P" 

MOVE "POOR" TO PRT-PERFORMANCE 
ELSE 

MOVE "UNKNOWN" TO PRT-PERFORMANCE, 



002930 = 100 * HEMP-SALARY (1)1 - EMP-SALARY (2)) / lEMP-SALARY TIT^ 

002940 V \ 

002950 COMPUTE MONTHS-BETWEEN-INCREABE ^ Previous salary 

002960 = (EMP-SALARY-YEAR\(1 ) - EMP-SALARY-YEAR (2)) * 12 

002970 + (EMP-SALARY~MONTh\( 1 ) - EMP-SALARY-MONTH (2)). 

Present salary 

FIGURE 10.5 Continued 



the correctness of this calculation. (This is best accomplished by "plugging 
numbers in" and "playing computer." Present and previous salaries of 
$12,000 and $10,000, for example, should yield a percent increase of 20%.) 
In similar fashion, lines 2950-2970 calculate the months between increase, 
and the reader should verify this statement as well. Observe also the check 
in line 2370 to verify that a second level of salary is in fact present. Failure 
to do this would result in an attempted division by zero. 

The tables for location, title, and education are each initialized differ- 
ently. The location table, lines 770-920 is "hard coded" in the program. It 
is accessed in the PERFORM/VARYING of lines 2080-2100 as was previ- 
ously explained in the discussion associated with Figure 10.2. 

The education table is initialized through the COPY statement of line 
940. (Recall from Chapter 9 that lines 1-14, which appear after the COPY, 
are brought in from the external file EDUCATE/CBL during compilation.) 
The education code is expanded in lines 2730-2770 via "direct access" to 
the table, rather than a sequential search. The education codes themselves 
are numeric, and consecutive (from 1 to 8), but are not stored in the table, 
because the position within the table corresponds to the code. Hence, 
"SOME HS" has a code of 1, "HS DIPLOMA" a code of 2, and so on. (See 
the table definition in the Data Division.) The table lookup is a one-line 
procedure (line 2770) which moves the table entry in the desired position 
to the print line; e.g. an education code of 6 will move MASTERS to the 
print line. Observe also the check for an invalid code in line 2740. 

Space for the title table is allocated in lines 960-1010. It is initialized 
by reading values from a file (lines 1760-1940) as explained earlier in con- 
junction with Figure 10.3. The actual table lookup (lines 2620-2710) uses 
indexes and the SET statement as per the discussion of Figure 10.4. 

Employee performance is expanded in the nested IF of lines 2800- 
2890. The performance table is imphcitly defined within this statement. 

The Data Division requires the definition of several print lines (hnes 
1030-1600). The Procedure Division opens the files, does an initial read 
for the employee file, then executes 040-WRITE-PERSONNEL-PROFILES 
until there are no more employee records. This routine in turn calls several 
lower level modules to implement the various table lookups and prints the 
profiles. 
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lllllUnSMITH 

222222222J0NES 

333333333BAKER 

444444444MILGR0M 

555555555CRAWF0RD 



ATL0105i 



- Title code 
J007B 1000000000 



CH I |04ia 4E23000038 1 2000B09S0 
BOB0306P 1 95000 1 82 1 8000 1 2B0 
DET0207S2800004S 1 240000480 
WAS0305E30000058125 0001 179 

a - Employee File 



010ACCOUNTANT 
020AUD;ITOR 
030MANA6ER 
|040F''ROGRAHMER| 
0?50WAL..l. ErrREET RK F-> 



b - Title File 



^Title code and expanded value 



PERSONNEL F->ROFILE 



NAME: JONES 
LOCATION! CHICAGO 
EDUCATION: 4YR DEGREE 



SOC SEC NUM: 



TITLE: PROGRAMME Rh 



PERFORMANCE : EXCELLENT 



SALARY 



*23i000 
*20>000 



SALARY DATA 
DATE 7. INCREASE 



MB I 



3/81 
9/80 



15. 



PERSONNEL PROFILE 



NAME: SMITH 
LOCATION: ATLANTA 
EDUCATION: SOME GRAD 



SO C SE C NUM : 111 - 1 1-1111 
TITLE: ACCOUNTANT 
PERFORMANCE: AVERAGE 



SALARY 
n. 8 ! 000 



DATE 
7/81 



SALARY DATA 

X INCREASE 



MB I 



Expanded title 



-Calculated fields from 
past and present salaries 



c - Partial Output (First two Employee Records) 

FIGURE 10.6 Test data and partial output for table processing program, 
(a) Employee file, (b) Title file, (c) Partial output (first two employee 
records). 
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TWO-LEVEL Two-dimension tables require two subscripts to specify a particular entry. 
TABLES Consider Figure 10.7 which shows a two-dimension table to determine 
entry-level salaries in Company X. Personnel has established a policy that 
starting sedary is a function of both responsibility level (values 1 to 10) and 
experience (values 1 to 5). Thus an employee with responsibility level of 4 
and experience level of 1 would receive $10,000. An employee with re- 
sponsibility of 1 and experience of 4 would receive $9,000. 



Experience 







1 


2 


3 


4 


5 




1 


6,000 


7,000 


8,000 




10,000 




|9,000| 




2 


7,000 


8,000 


9,000 


10,000 


11,000 




3 


8,000 


9,000 


10,000 


fl 1,000 


12,000 




4 




12,000 


14,000 


n 6,000 


18,000 




J10,000| 


Responsibility 


5 / 


/ 

12,000 


14,000 


16,000 


/ 

18,000 


20,000 






14,000 


16,000 


18,000/ 


20,000 


22,000 




1 1 


16,000 


19,000 


22,00l|! 


25,000 


28,000 




8 


19,000 


22,000 


25,000 


28,000 


31,000 




9 


22,000 


25,000 


28,000 


31,000 


34,000 




10 


26,000 


30,000 


34,()!oO 


38,000 


42,000 



J Responsibility level = 4 
) Experience level = 1 



Responsibility level = 1 
Experience level = 4 



FIGURE 10.7 Entry-level salary (illustration of two-dimension tables) 

Establishment of space for this table in COBOL requires Data Division 
entries as follows : 

01 SALARY-TABLE. 

05 SALARY-RESPONSIBILITY OCCURS 10 TIMES. 

10 SALARY-EXPERIENCE OCCURS 5 TIMES PIC 9(5). 

These entries would cause a total of 250 consecutive storage positions 
to be allocated (10 X 5 X 5) as shown: 



SALARY TABLE 


SALARY- RESPONSIBILITY (1) 


SALARY -RESPONSBILITY (2) | 


Exp 1 


Exp 2 


Exp 3 


Exp 4 


Exp 5 


Exp 1 


Exp 2 


Exp 3] 


Exp 4 


Exp 5 
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Table Processing 197 

Each of the 10 salary responsibility levels has 5 experience levels asso- 
ciated with it. Once we realize that the first 25 storage positions refer to the 
first responsibility level, the next 25 to the second responsibility level, etc., 
we know how to initialize the table using the VALUE and REDEFINES 
clauses. Note that the level number for experience (10) is higher than for re- 
sponsibility (05), indicating that experience belongs to responsibility; i.e., 
responsibility is a group item, whereas experience is an elementary item. In- 
deed, if the level numbers were the same, SALARY-TABLE would not be 
two-dimensional. 

Any Procedure Division reference to SALARY-EXPERIENCE re- 
quires two subscripts, which appear in the same order as the OCCURS 
clauses. The first subscript refers to responsibility, and the second one 
to experience. SALARY-EXPERIENCE (10, 5) is a valid reference, but 
SALARY-EXPERIENCE (5, 10) is invalid. The former denotes responsi- 
bility and experience levels of 10 and 5, respectively. However, the latter 
denotes a responsibility level of 5 and an experience level of 10, which do 
not exist. 

PERFORM VARYING 

The PERFORM VARYING statement is a convenient way to manipulate 
subscripts in either one- or two-level tables. Consider the syntactical format: 

PERFORM procedure-name-1 [ THRU procedure-name-2] 
VARYING identifier-1 FROM J 



[AFTE 



Jidentifier-2) 
'lliteral-2 / 

f identifier-3l 
BYi,. ,^ f UNTIL condition-1 
— Uiteral-3 > 

f identlfler-5) 

R identlfler-4 FROM j ,. , ^ } 

(literal-5 I 

{identifier-61 
> UNTIL condition-2 
Jtera -6 J 



and an example : 



PERFORM INITIALIZE-TOTALS 

VARYING QUESTION-SUB FROM 1 BY 1 

UNTIL QUESTION-SUB > 10 
AFTER ANSWER-SUB FROM 1 BY 1 

UNTIL ANSWER-SUB > 3. 

The analysis of the statement is facilitated by first reviewing PER- 
FORM VARYING with a single subscript. Recall that the statement 

PERFORM PAR-A 

VARYING SUBSCRIPT FROM 1 BY 1 
UNTIL SUBSCRIPT = 4. 

will perform PAR-A three times rather than four. This is because the VARY- 
ING/UNTIL combination increments, tests, and then branches. Accordingly, 
after PAR-A is executed three times, SUBSCRIPT is incremented to 4. The 
condition UNTIL SUBSCRIPT = 4 is satisfied and PAR-A will not be per- 
formed again. In other words, if a paragraph is to be executed N times, then 
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the condition must specify UNTIL SUBSCRIPT > N, rather than SUB- 
SCRIPT = N. 

Extending this logic to the two subscripts of the preceding example, we 
conclude that the procedure INITIALIZE-TOTALS will be executed 30 
(10X3) times. (Note well the greater-than signs in the PERFORM statement.) 
The remaining concern is in which order will the subscripts, QUESTION- 
SUB and ANSWER-SUB, be varied. The answer is that the bottom subscript 
(i.e., the subscript in the AFTER clause) is varied first. 

The first time INITIALIZE-TOTALS is executed, QUESTION-SUB and 
ANSWER-SUB are both equal to 1. The second and third times QUESTION- 
SUB is held at 1 while ANSWER-SUB is incremented to 2, then 3. After 
INITIALIZE-TOTALS has been performed three times, the AFTER condi- 
tion is satisfied. Hence, the fourth time out QUESTION-SUB is incremented 
to 2, and ANSWER-SUB is reset to 1. The situation is more clearly explained 
by the table of Figure 10.8. 





QUESTION-SUB 


ANSWER-SUB 


1st execution 


1 


1 


2nd execution 


1 


2 


3rd execution 


1 


3 


4th execution 


2 


1 


5th execution 


2 


2 


6th execution 


2 


3 


7th execution 


3 


1 


28th execution 


10 


1 


29th execution 


10 


2 


30th execution 


10 


3 



FIGURE 10.8 PERFORM VARYING with two subscripts 

A Complete Example 

We further develop use of two-dimension tables by considering requirements 
for another COBOL program. Let us assume that a survey of 10 questions 
has been distributed and returned. Every question in the survey has 3 possi- 
ble answers; yes, no, and not sure (denoted by Y, N, or X, respectively). The 
answers to all questions on a given survey are entered in positions 1-10 of 
a single record. There are as many records as there are survey respondents; 
i.e., each record contains 10 responses from one individual. 

Figure 10.9 shows various ways of representing a two-dimension table. 
Figure 10.9a illustrates the way the survey tabulations would probably ap- 
pear in a report. Note that the object of the COBOL program is to process 
the completed questionnaires and compute the numbers in Figure 10.9a 
(which contains hypothetical values for 50 surveys). 

Figure 10.9b contains the COBOL entries for establishing a two- 
dimension table of 10 rows and 3 columns. Realize that Figure 10.9b merely 
allocates space but does not assign values to the table. 

Figure 10.9c shows the storage allocation resulting from Figure 10.9b. 
A total of 60 storage positions are allocated, two for each of the 30 table 
entries. Each Procedure Division reference to QUESTION-NUMBER requires 
one subscript; e.g., QUESTION-NUMBER (2), which refers collectively to 
the three answers for the second question. Each reference to ANSWER, how- 
ever, requires two subscripts denoting the question number and answer. 



Question No. 


Number of Responses 
Yes No Not Sure 


1 


15 


20 


15 


2 


20 


18 


12 


3 


^ 


6 




23 


21 


4 


/24 


21 


5 


5 


/ 38 


11 


1 


6 


/ ^® 


32 


2 


7 / 


10 


20 


20 


8 / 


35 


10 


5 


9 / 


4 


39 


7 


10 / 


46 


3 


1 



- Six people responded yes to the third question, i.e. the 
element in row 3, column 1, has a value of 6. 
(a) 



01 SURVEY-RESPONSES. 

05 QUESTION-NUMBER OCCURS 10 TIMES. 
10 ANSWER OCCURS 3 TIMES 

(b) 



PIC 99. 



SURVEY-RESPONSES 



QUESTION-NUMBER (1) 



QUESTION-NUMBER (2) 



QUESTION-NUMBER (10) 



ANSd) 



ANS (2) 



ANS (3) 



ANS (1) 



ANS (2) 



ANS (3) 



ANSd) 



ANS (2) 



ANS (3) 



•Any reference to ANS requires 2 subscripts 
-Any reference to QUESTION-NUMBER requires 1 subscript 



(c) 



FIGURE 10.9 Two-dimension tables, (a) Conceptual view, (b) COBOL 
entries (allocates space but does not assign values), (c) Storage allocation 



Hence, the value contained in the table element ANSWER (4, 2) is the num- 
ber of "no" answers to the fourth question. 

Figure 10.10 contains the completed program for processing the surveys. 
Lines 620 through 640 define the two-dimension table to hold the survey 
responses, as explained in conjunction with Figure 10.9. Note also COBOL 
line 330, which defines a one-dimension table, SURVEY-RESPONSE, to 
reference the 10 responses for each survey. 

The Procedure Division begins by opening the survey and print files. The 
SURVEY-RESPONSE table is initiahzed through a PERFORM VARYING 
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000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
0002 1 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 



IDENTIFICATION DIVISION. 
PROGRAM-ID. SURVEY. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS--80. 
OBJECT-COMPUTER. TRS-80. 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT SURVEY-FILE 

ASSIGN TO INPUT 
SELECT PRINT-FILE 

ASSIGN TO PRINT 



'SURVEY/DAT" 



'SURVEY/TXT". 



DATA DIVISION. 

FILE SECTION. 

FD SURVEY-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 10 CHARACTERS 
DATA RECORD IS SURVEY-RECORD. 

01 SURVEY-RECORD. 



■ Definition of One-Level Table 



FD 



01 



105 SURVEY-RESPONSTTiCCURS" 10 TIMES PIC X.| 

PRINT-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 132 CHARACTERS 

DATA RECORDS ARE DETAIL-LINE HEADING-LINE. 

HEADING-LINE. 

05 FILLER PIC X(4). 

05 HEADING- INFORMATION PIC X(30>. 

05 FILLER PIC X<9a) . 

DETAIL-LINE. 

05 FILLER 

05 QUESTION 

05 FILLER 

05 PRINT-YES 

05 FILLER 

05 PRINT-NO 

05 FILLER 

05 PRINT-NOT-SURE 

05 FILLER 



WORKING-STORAGE SECTION. 
01 WS-DATA-REMA INS-SWITCH 
01 SURVEY-SUBSCRIPTS. 
05 WS-ANSWER-SUB 
05 WS-QUEST ION-SUB 



PIC 


X(7). 


PIC 


zz. 


PIC 


X(6). 


PIC 


ZZ. 


PIC 


X ( 3 ) . 


PIC 


ZZ. 


PIC 


X(6). 


PIC 


ZZ. 


PIC 


X(102) 



PIC X(3) VALUE SPACES. 

PIC 99. 
PIC 99. 



01 


SURVEY-RESPONSES. 






05 QUESTION-NUMBER 


OCCURS 10 TIMES. 




10 ANSWER 


OCCURS 3 TIMES PIC 99. 



PROCEDURE DIVISION. 
000-PROCESS-SURVEYS. 

OPEN INPUT SURVEY-FILE 
OUTPUT PRINT-FILE. 



Definition of Two-Level Table 



PERFORM 005- 


INITIALIZE-SURVEY-TOTALS 


VARYING 


WS 


-QUESTION- 


-SUB FROM 1 


BY 1 


UNTIL 


WS 


-SUESTION- 


-SUB > 10 




AFTER WS-ANSWER-SUB 


FROM 1 BY 


1 


UNTIL 


WS 


-ANSWER-SUB > 3. 





" Performed routine is executed thirty times 



FIGURE 10.10 Two-level tables 



200 



000780 
000790 
000800 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001 1S0 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
00 1 270 
001280 



READ SURVEY-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 
PERFORM 010~PROCESS-SURVEYS 

UNTIL WS-DATA-REMAINS-SWITCH = "NO". 

PERFORM 018-WRITE-HEADING. 



PERFORM 020- 


^RITE-RES 


^ONSES 






VARYING 


WS 


-QUESTION 


-SUB 


FROM 1 


BY 1 


UNTIL 


WS 


-QUEST I ON- 


-SUB 


> 


10. 





CLOSE SURVEY-FILE 

PRINT-FILE. 
STOP RUN. 

005-INITIALIZE-SURVEY-TOTALS. 



~ Performed routine is executed ten times 



MOVE ZERO TO [ANSWER <WS-Q UESTION-SUBi WS-ANSWER-SUB) .| 

1 0-PROCESS-SURVEYS . 

PERFORM 015-EVALUATE-RESPONSE ANSWER is referenced with two subscripts 

VARYING WS-eUEST ION-SUB FROM 1 BY 1 
UNTIL WB-QUEST ION-SUB > 10. 
READ SURVEY-FILE 

AT END MOVE "NO" TO WS-DATA-REMAINS-SWITCH. 

015-EVALUATE-RESPONBE. 



IF SURVEY-RESPONSE (WS-QUEST ION-SUB) = "Y" 




MOVE 1 TO WS-ANBWER-SUB 




ELSE 




IF SURVEY-RESPONSE ( WS-QUEBT ION-SUB) = 


"N" 


MOVE 2 TO WS-ANSWER-SUB 




ELBE 




MOVE 3 TO WS-ANSWER-SUB. 





ADD 1 TO ANSWER (WS-QUEST I ON-SUBv WS-ANBWER-BUB ) , 



Determines appropriate column 
for two-level table 



018-WRITE-HEADING. 

MOVE SPACES TO HEADING-LINE. 

MOVE "QUESTION YES NO NOT SURE" 

TO HEAD I NG- I NFORMAT I ON . 
WRITE HEADING-LINE AFTER ADVANCING PAGE. 

020-WR I TE> -RESPONSES . 

MOVE SPACES TO DETAIL-LINE. 

MOVE WS-QUEST ION-SUB TO QUESTION. 

MOVE ANSWER ( WB-QUESTION-SUB. 1) TO PRINT-YES. 

MOVE ANSWER < WS-QUESTION-SUBi 2) TO PRINT-NO. 

MOVE ANSWER (WS-QUEST I ON- SUB. 3) TO PRINT--NOT-SURE. 

WRITE DETAIL-LINE AFTER ADVANCING 1 LINE. 

FIGURE 10.10 Continued 



Statement, which causes the paragraph 005-INITIALIZE-SURVEY-TOTALS 
to be executed 30 times, once for each of 30 elements. The routine 010- 
PROCESS-SURVEYS is performed until there are no more surveys to pro- 
cess. It in turn invokes the routine 015-EVALUATE-RESPONSE 10 times, 
i.e., once for each question on the survey. (The PERFORM VARYING of 
lines 970-990 automatically increments the value of WS-QUESTION-SUB 
from 1 to 10.) The nested IF of lines 1040-1100 determines the appropriate 
column in which to enter the particular response, i.e., yes, no, or not sure for 
columns 1, 2, and 3, respectively. When the end of file is reached, and the 
perform of lines 800 and 810 is terminated, the computed responses are 
printed by the routine 020-WRITE-RESPONSES. 
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-YYYYYYYYYV 
NNNNNNNNNV 
YNYNYNYNY 
XXYYXXYYX 
YYYYYYYYYN 
YYYYYYY 
IMYYYYYYYY 



I'YNM 
Y 



- There were 7 responses to question 10 
(2 Yes, 4 No, 1 Not Sure) 



- This row represents the response to question 1 from 
one person 

FIGURE 10.11 Input to survey program 



Figure 10.11 contains test data and Figure 10.12 corresponding output. 
There were 7 people who responded to the survey. Each record of Figure 
10.11 contains 10 responses; i.e., the answers to questions 1-10 from the 
same individual. Figure 10.12 contains actual output produced by the 
COBOL program. 



(iUESTTON 
1 



10 



YES 




NO NC]T SURE 















6 


1 

J-.''. 




5 
4 


1 




6 


1 




S 


2 




4 


i^' 




2 


4 





A 10 X 3 table (10 rows, 3 columns) 



FIGURE 10.12 Output from survey program 



THREE-LEVEL 
TABLES 



COBOL permits tables of one, two, or three dimensions. We have covered 
the first two cases in some detaU, and have illustrated both with complete 
programs. We now provide a brief look at three-level tables. 

Three-dimension tables require three subscripts to specify a particular 
entry. Consider a university with three colleges, five schools (e.g., engineer- 
ing, business, etc.) within each college, and four years within each school. 
We define a three -dimension table of enrollments as follows: 



01 ENROLLMENTS. 

05 COLLEGE OCCURS 3 TIMES. 
10 SCHOOL OCCURS 5 TIMES. 
15 YEAR OCCURS 4 TIMES 



PIC 9(4). 



There are 60 (3X5X4) elements in the table. Note that YEAR is the 
only elementary item, and hence it is the only entry with a picture clause. 
The COBOL compiler allocates a total of 240 positions (60 elements X 4 
positions per element), as indicated in Figure 10.13. 

As can be inferred from Figure 10.13, table positions 1 to 80 refer to 
the first college, positions 81 to 160 to the second college, and positions 
161 to 240 to the third coUege. Positions 1 to 16 refer to the first school 
in the first college, positions 81 to 96 refer to the first school in the second 
college, and positions 161 to 176 refer to the first school in the third college. 



202 



ENROLLMENTS / 


COLLEGE - 1 


COLLEGE - 2 


School - 1 School - 2 School - 3 School - 4 School - 5 


School - 1 \ 


yr-1 yr-2 yr-3 vr-4 yr-1 yr-2 yr-3 yr-4 yr-1 yr-2 yr-3 yr-4 yr-1 vr-2 yr-3 yr-4 yr-1 yr-2 yr-3 


yr-4 yr-1 yr-2 yr-3 yr-4 \ 




7 



FIGURE 10.13 Storage allocation for a three-dimension table 

Finally, positions 1 to 4 refer to the first year in the first school in the first 
college, positions 81 to 84 refer to the first year in the first school in the 
second college, and so on. 

Returning to the COBOL definition of the three-dimension table, 



YEAR (1,2, 3) 



YEAR (4, 3, 2) 



Refers to the enrollment in the 
first college, second school, third 
year. Note that in Figure 10.13 any 
reference to year must also specify 
school and college to remove am- 
biguity; hence, YEAR must always 
be referenced with 3 subscripts. 
Is incorrect since there are only 3 
colleges (i.e., COLLEGE OCCURS 
3 TIMES). Reference to YEAR (4, 
3,2) may not cause a compila- 
tion error, but could present prob- 
lems in execution. Remember, 
subscripts appear in the same order 
as the OCCURS clauses. 



COBOL provides additional flexibility to reference data at different 
hierarchical levels. In effect, definition of a three-dimension table auto- 
matically allows reference to one- and two-dimension tables as well. Thus, 



SCHOOL (1,2) 



COLLEGE (3) 



ENROLLMENTS 



Refers to the enrollment in college 
1 , school 2 ; in effect, it references 
the four years of college 1, school 
2 collectively. Figure 10.13 implies 
that one must state the college in 
which a school occurs in order to 
pinpoint the school under discus- 
sion; hence, SCHOOL requires two 
subscripts. 

Refers to the enrollment in the 
third college; it references the 20 
fields of the third college collec- 
tively. COLLEGE must always be 
used with one subscript. 
Refers to the entire table of 60 
elements. ENROLLMENTS may 
not be referenced with a subscript. 
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PERFORM VARYING 

The VARYING option of the PERFORM verb is extremely convenient for 
manipulating subscripts and/or indexes. It is extended to three dimensions. 



PERFORM procedure-name-l [ THRU procedure-name-2] 

nclentifier-2 
literal-2 
lindex~2 



f identifier-1) I , f identifier-3l ^., 

VARYINGS > FROM-! literal-2 J BY •{ ^ UNTIL condition-1 

lindex-1 I I I lliteral-3 > 

Undex~2 ; 

{ridentifier-5^ ,. , ... _. 
identifier-4) ,, (identifier-6\ , , „., 
^FROIVI^iteral-5 >BY{ } UNTIL condition-2 
index-4 J I lllteral-6 J 

Undex-5 / 

-■V fidentifler-8l ,.. ... _. 

ier-71 I fpdentifier-91 

}fROI\/i{ literal-8 tBY i }■ U 

7 ; |. . „ — - lliteral-9 J — 

^index-8 ) 



(identlfiL. . , , , ,.- - - _ , 

AFTER-^ }FR0I\/1{ literal-8 }BY-{. }■ UNTIL condition-3 



i -i 
lindex- 



As an illustration, consider the following PERFORM statement: 

PERFORM 01 0-READ-ENROLLMENT-RECORDS 
VARYING COLLEGE-SUB 

FROM 1 BY 1 UNTIL COLLEGE-SUB > 3 
AFTER SCHOOL-SUB 

FROM 1 BY 1 UNTIL SCHOOL-SUB > 5 
AFTER YEAR-SUB 

FROMI BY1 UNTIL YEAR-SUB > 4. 

The procedure 010-READ-ENROLLMENT-RECORDS will be per- 
formed a total of 60 times, with the bottom subscript, YEAR-SUB, varied 
first. Initially, COLLEGE-SUB, SCHOOL-SUB, and YEAR-SUB are all set 
to 1, and the first perform is done. Then YEAR-SUB is incremented by 1 and 
becomes 2 (COLLEGE-SUB and SCHOOL-SUB remain at 1), and a second 
perform is done. YEAR-SUB is incremented to 3 and then to 4, resulting in 
two additional performs. YEAR-SUB temporarily becomes 5, but no per- 
form is realized since YEAR-SUB > 4. SCHOOL-SUB is then incremented 
to 2, YEAR-SUB drops to 1, and we go merrily on our way. 



SUMIVIARY This chapter was devoted entirely to table processing. It began with a review 
of the OCCURS clause, then expanded the material to indexing and variable- 
length tables. Three distinct nnethods for table initialization were presented: 
hard coding it in a program, use of the COPY statement, and dynamically 
reading a table. Table lookups were presented, with and without indexes, 
and with and without PERFORM VARYING. All material was neatly sum- 
marized in a complete program. 

Coverage was extended to two-level tables. We saw the need for two 
OCCURS clauses and PERFORM VARYING in two dimensions. This mate- 
rial was highlighted in a second complete program. 

Finally, coverage was extended to three-level tables, with emphasis on 
three OCCURS clauses and PERFORM VARYING in three dimensions. 
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Table Processing 205 

TRUE/FALSE 

1. Initializing a table via a COPY clause is superior to "hard coding." 

2. A two-level table requires two OCCURS clauses in its definition. 

3. Initializing a table by reading values from a file is superior to using a COPY statement. 

4. A single PERFORM statement can manipulate two subscripts. 

5. The same COBOL entry can contain both a VALUE and an OCCURS clause. 

6. The REDEFINES clause must be used when defining a table. 

7. The COBOL entries TABLE (4, 1) and TABLE (1, 4) are equivalent. 

8. An OCCURS clause allocates space to a table and assigns values to it. 

9. Direct access to table entries is faster than a sequential table lookup. 
10. A two-level table may be referenced at different hierarchical levels. 

EXERC/SES 

1. (a) Write out the 12 pairs of values that will be assumed by SUB-1 and SUB-2 as a 

result of the statement 

PERFORM 10-READ-CARDS 

VARYING SUB-1 FROM 1 BY 1 

UNTIL SUB-1 > 4 
AFTER SUB-2 FROM 1 BY 1 
UNTIL SUB-2 > 3. 

(b) What would happen if the greater than signs were replaced by equal signs? By less 
than signs? 

2. How many storage positions are allocated for each of the following table definitions? 
Show an appropriate schematic indicating storage assignment for each table. 

(a) 01 ENROLLMENTS. 

05 COLLEGE OCCURS 4 TIMES. 
10 SCHOOL OCCURS 5 TIMES. 

15 YEAR OCCURS 4 TIMES PIC 9(4). 

(b) 01 ENROLLMENTS. 

05 COLLEGE OCCURS 4 TIMES. 

10 SCHOOL OCCURS 5 TIMES PIC 9(4). 

10 YEAR OCCURS 4 TIMES PIC 9(4). 

3. Given the entries: 

01 NUMBER-OF-EMPLOYEES-TABLE. 
05 REGION OCCURS 6 TIMES. 

10 CITY OCCURS 4 TIMES PIC 9(3). 

Indicate whether the following references are valid : 

(a) REGION (1) 

(b) CITY (3,2) 

(c) REGION (3,2) 

(d) REGION (7) 

(e) CITY (2) 

(f) NUMBER-OF-EMPLOYEES-TABLE 

(g) CITY (6,4) 
(h) CITY (4, 6) 

Note that some entries may be syntactically valid (i.e., they will not cause compilation 
errors), but logically invalid. Distinguish between the two kinds of errors. 
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4. Write out the 24 pairs of values that will be assumed by SUB-1, SUB-2, and SUB-3 as 
a result of the statement: 



PERFORM 10-READ-CARDS 

VARYING SUB-3 FROM 1 BY 1 

UNTIL SUB-3 > 3 
AFTER SUB-2 FROM 1 BY 1 

UNTIL SUB-2 > 2 
AFTER SUB-1 FROM 1 BY 1 

UNTIL SUB-1 > 4. 



5. Debugging-Figure 10.14 contains invalid output produced by the Table Processing 
program of Figure 10.15. (Figure 10.6, and the associated discussion, presented pro- 
cessing specifications, test data, and intended output.) 

Find and correct all errors in Figure 10.15 which represents a modified version of the 
program of Figure 10.5. 



Location lookup fails 



PERSONNEL PROFILE 



name: JONES 



see SEC NUM: 222--22-222:i; 



I LOCATION! UNKNOWN 



TITLE: UNKNOWNI- 



EDUCATION: 4YR DEGREE 



PERFORMANCE: EXCELLENT 



SALARY 

$23 1 000 
$20)000 



SALARY DATA 
DATE 7. INCREASE 



3/81 
9/80 



15.00 




PERSONNEL PROFILE 



NAME: SMITH 
LOCATION: UNKNOWN 
EDUCATION! SOME GRAD 



SOC SEC NUM! 111-11-1111 
TITLE! UNKNOWN 
I PERFORMANCE: UNKNOWN | 



SALARY DATA 



SALARY 
$18,000 



DATE 

7/81 



7. INCREASE 



MB I 



•Title lookup fails 



Months between increase 
is wrong 



-Performance should be 
average 



FIGURE 10.14 Invalid output of table program 



000100 
000110 
000120 
000130 
000140 
000150 
000160 
000170 
0001S0 

000190 

000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000430 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000690 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 



IDENTIFICATION DIVISION. 
PROGRAM- ID. ETABLES. 
AUTHOR. R GRAUER. 

ENV I RONMENT D I V I S I ON . 
CONF I GURAT I ON BE CT I ON . 
SOURCE-COMPUTER. TRS~80. 
OBJECT-COMPUTER. TRS-B0. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT TITLE-FILE 

ASSIGN TO INPUT "TITLES/DAT". 
SELECT EMPLOYEE-FILE 

ASSIGN TO INPUT "TABLES/DAT". 
SELECT PRINT-FILE 

ASSIGN TO PRINT "ETABLES/TXT" , 



DATA 
FILE 
FD 



01 



FD 



01 



FD 



01 



DIVISION. 

SECTION. 
TITLE-FILE 
LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 20 CHARACTERS 
DATA RECORD IS BALES-RECORD. 
TITLE-RECORD. 

05 IN-TITLE-CODE PIC 9(3). 
05 IN-TITLE-VALUE PIC X(17). 

EMPLOYEE-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 50 CHARACTERS 

DATA RECORD IS EMPLOYEE-RECORD. 

EMPLOYEE-RECORD. 

05 EMP-BOC-BEC-NUMBER PIC 9(9). 

05 EMP-LAST-NAME PIC X(15). 

05 EMP-LOC-CODE PIC X(3). 

05 EMP-TITLE-CODE PIC 999. 

05 EMP-EDUCAT ION-CODE PIC 9. 

05 EMP-PERFORMANCE-CODE PIC X. 

05 EMP-SALARY-DATA OCCURS 2 TIMES. 

10 EMP-SALARY PIC 9(5). 

10 EMP-SALARY-MONTH PIC 99. 

10 EMP-SALARY-YEAR PIC 99. 

PRINT-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 132 CHARACTERS 

DATA RECORD IS PRINT-LINE. 

PRINT-LINE PIC X(132>. 



WORK I NG-STORAGE SECT I ON . 
01 NUMBER-OF-TITLES 



PIC 9(3) 



PIC 
PIC 
PIC 
PIC 



X(3) 
X(3) 
X(3) 
X(3) 



01 PROGRAM-SWITCHES. 

05 EMPLOYEE-FILE-SWITCH 
05 TITLE-FILE-SWITCH 
05 FOUND-LOCATION-SWITCH 
05 FOUND-TITLE-SWITCH 

01 PROGRAM-SUBSCRIPTS. 

05 LOCATION-SUB PIC 99. 

05 TITLE-SUB PIC 99. 

01 SALARY-CALCULATIONS. 

05 PERCENT-SALARY-INCREASE PIC 
05 MONTHS-BETWEEN- INCREASE PIC 



VALUE ZEROS. 



VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 



99V9. 
99. 



01 LOCATION- VALUES. 
05 FILLER 
05 FILLER 
05 FILLER 
05 FILLER 



PIC X(ia) 
PIC X( 18) 
PIC X( 18) 
PIC X(18) 



VALUE 
VALUE 
VALUE 
VALUE 



"ATLATLANTA 
"BOSBOSTON 
"CHI CHICAGO 
"DETDETROIT 



FIGURE 10.15 Incorrect table program 
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000820 

000830 

000840 

000850 

000860 

000870 

000880 

000890 01 

000900 

000910 

000920 

000930 

000940 

000001 01 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

000012 

000013 

000014 

000950 

000960 01 

000970 

000980 

000990 

001000 

001010 

001020 

001030 01 

001040 

001050 

001060 

001070 

001080 

001090 01 

001100 

001110 

001120 

001130 

001140 

001150 

001160 

001170 01 

001180 

001190 

001200 

001210 

001220 

001230 

001240 

001250 01 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 01 

001340 

001350 

001360 

001370 

0013B0 01 

001390 



05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC X(18) VALUE "LOULOUISVILLE 

PIC X(18> VALUE "MINMINNEAPOLIS " 

PIC X(18) VALUE "NEWNEWARK 

PIC X(18) VALUE "IMY NEW YORK 

PIC X(18) VALUE "SA SAN ANTONIO " 

PIC X(18) VALUE "BF SAN FRANCISCO" 



LOCATION-TABLE. 

05 LOCATION-CODE-AND-VALUE OCCURS 10 TIMES. 

10 LOCATION-CODE PIC X(3). 

10 EXPANDED-LOCATION PIC X(15). 



COPY "EDUCATE/CBL". 

EDUCATION-TABLE. 

05 EDUCATION-VALUES. 

10 FILLER PIC X(10) VALUE 

10 FILLER PIC X(10) VALUE 

10 FILLER PIC X(10) VALUE 

10 FILLER PIC X(10) VALUE 

10 FILLER PIC X(10) VALUE 

10 FILLER PIC X(10) VALUE 

10 FILLER PIC X(10) VALUE 

10 FILLER PIC X(10) VALUE 



"SOME H.S. " 
"HS DIPLOMA" 
"2YR DEGREE" 
"4YR DEGREE" 
"SOME GRAD " 
"MASTERS 
"PH. D, 
"OTHER 



EDU-NAME REDEFINES 
OCCURS e TIMES 



EDUCATION- VALUES 
PIC X(10). 



T I TLE— TABLE . 

05 TITLES OCCURS 1 TO 100 TIMES 

DEPENDING ON NUMBER~OF-TITLES 
INDEXED BY TITLE-INDEX. 
10 TITLE-CODE PIC 9(3) . 
10 TITLE-VALUE PIC X(17). 



PRINT-LINE-ONE. 
05 FILLER 
05 FILLER 

VALUE "PERSONNEL 
05 FILLER 

PRINT-LINE-TWO. 

05 FILLER 

05 PRT-LAST-NAME 

05 FILLER 

05 FILLER 

05 PRT-SOC-SEC-NUMBER 

05 FILLER 

PRINT-LINE-THREE. 

05 FILLER 

05 PRT-LOCATION 

05 FILLER 

05 FILLER 

05 PRT-TITLE 

05 FILLER 

PRINT-LINE-FOUR. 

05 FILLER 

05 PRT-EDUCATION 

05 FILLER 

05 FILLER 

05 PRT-PERFORMANCE 

05 FILLER 

PRINT-LINE-FIVE. 
05 FILLER 
05 FILLER 
05 FILLER 

PRINT-LINE-SIX. 
05 FILLER 



PIC X(22) 
PIC X(17) 
PROFILE". 
PIC X(93) 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



VALUE SPACES. 



VALUE SPACES. 



VALUE "NAME: 



X ( 6 ) 

X(15) . 

X ( 25 ) VALUE 

X(13) VALUE 

999B99B9999. 

X(62) VALUE SPACES 



SPACES. 

"SOC SEC NUM: 



X( 10) 
X(15). 
X(21 ) 
X(7) 
X (1 7 ) . 
X(62) 



X(ll) 
X( 10). 
X < 25 ) 
X( 13) 
X( 11 ). 
X ( 62 ) 



VALUE "LOCATION: 

VALUE SPACES. 
VALUE "TITLE: ". 

VALUE SPACES. 



VALUE "EDUCATION: " 

VALUE SPACES. 
VALUE "PERFORMANCE: 

VALUE SPACES. 



PIC X(25) 
PIC X(ll) 
PIC X(96) 



PIC X(5) 



VALUE 
VALUE 
VALUE 



SPACES. 
"SALARY 
SPACES. 



DATA" 



VALUE SPACES. 



FIGURE 10.15 Continued 
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001400 

001410 

001420 

001430 

001440 

001450 

001460 

001470 

0014B0 

001490 

001500 

001510 

001520 

001530 

001540 

001550 

001560 

001570 

001580 

001590 

001600 

001610 

001620 

001630 

001640 

001650 

001660 

001670 

001680 

001690 

001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

001780 

001790 

001B00 

001810 

001 820 

001830 

001840 

001850 

001860 

001870 

001880 

001890 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 

001990 

002000 

002010 

002020 

002030 

002040 

002050 

002060 

002070 

002080 

002090 

002100 

002110 

002120 



05 
05 
05 
05 
05 
05 
05 
05 



FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 
FILLER 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



X(6) 

X( 10) 

X(4) 

X(10) 

X(10) 

X(10) 

X(3) 

X(74) 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



"SALARY". 

SPACES. 

"DATE". 

SPACES. 

"7. INCREASE" 

SPACES. 

"MBI". 

SPACES. 



01 PRINT-SALARY-LINE. 

05 FILLER 

05 PRT-SALARY 

05 FILLER 

05 PRT-SALARY-MONTH 

05 PRT-SLASH 

05 PRT-SALARY-YEAR 

05 FILLER 

05 PRT-SALARY-- INCREASE 

05 FILLER 

05 PRT-BALARY-MBI 

05 FILLER 



PIC X(4) VALUE SPACES. 
PIC $99,999. 



PIC X(9) 
PIC Z9. 
PIC X 
PIC Z9. 
PIC X(12) 
PIC Z9.99. 
PIC X(13) 
PIC ZZ. 
PIC X(75) 



VALUE SPACES. 



VALUE "/' 



VALUE SPACES. 



VALUE SPACES. 



VALUE SPACES. 



PROCEDURE DIVISION. 
010-PREPARE-REPORT. 

PERFORM 020-INITIALIZE-TITLE-TAeLE. 

OPEN INPUT EMPLOYEE-FILE 

OUTPUT PRINT-FILE. 
READ EMPLOYEE-FILE 

AT END MOVE "YES" TO EMPLOYEE-FILE-SUIITCH. 
PERFORM 040~WRITE-PERSONNEL-PROFILES 

UNTIL EMPLOYEE-FILE-SWITCH = "YES". 
CLOSE EMPLOYEE-FILE 

PRINT-FILE. 
STOP RUN. 

020-INITIALIZE-TITLE-TABLE. 
OPEN INPUT TITLE-FILE. 
READ TITLE-FILE 

AT END MOVE "YES" TO TITLE-FILE-SWITCH. 
PERFORM 030-READ-TITLE-FILE 

VARYING TITLE-SUB FROM 1 BY 1 

UNTIL TITLE-FILE-SWITCH = "YES". 
CLOSE TITLE-FILE. 

030-READ-T I TLE-F I LE . 

IF TITLE-SUB > 100 

MOVE "YES" TO TITLE-FILE-SWITCH 
DISPLAY "ERROR - TITLE TABLE EXCEEDED" 

ELSE 

MOVE IN-TITLE-CODE TO TITLE-CODE (TITLE-SUB) 
MOVE IN-TITLE-VALUE TO TITLE-VALUE (TITLE-SUB). 

READ TITLE-FILE 

AT END MOVE "YES" TO TITLE-FILE-SWITCH. 

040-WRITE-PERSONNEL-PROFILE5. 

WRITE PRINT-LINE FROM PRINT-LINE-ONE 
AFTER ADVANCING PAGE. 

MOVE EMP-LAST-NAME TO PRT-LAST-NAME. 

MOVE EMP-SOC-SEC-NUMBER TO PRT-SOC-SEC-NUMBER. 

INSPECT PRT-SOC-SEC-NUMBER 

REPLACING ALL " " BY "-". 
WRITE PRINT-LINE FROM PRINT-LINE-TWO 

AFTER ADVANCING 2 LINES. 

MOVE "NO" TO FOUND-LOCATION-SWITCH. 
PERFORM 050-SEARCH-LOCAT I ON-TABLE 

VARYING LOCATION-SUB FROM 1 BY 1 

UNTIL FOUND-LOCATION-SWITCH = "YES". 

MOVE "NO" TO FOUND-TITLE-SWITCH. 



FIGURE 10.15 Continued 
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002130 

002140 

002150 

002160 

002170 

002180 

002190 

002200 

002210 

002220 

002230 

002240 

002250 

002260 

00227(3 

002280 

002290 

002300 

002310 

002320 

002330 

002340 

002350 

002360 

002370 

002380 

002390 

002400 

002410 

00242(3 

002430 

002440 

002450 

002460 

002470 

002480 

002490 

002500 

0025 1 

002520 

002530 

002540 

002550 

002560 

002570 

002580 

002590 

002600 

002610 

002620 

002630 

002640 

002650 

002660 

002670 

002680 

002690 

002700 

002710 

002720 

002730 

002740 

002750 

002760 

002770 

002780 

002790 

002800 

002810 

002820 



SET TITLE-INDEX TO 1. 

PERFORM 060-SEARCH-TITLE-TABLE 

UNTIL FOUND-TITLE-SWITCH = "YES". 

WRITE PRINT-LINE FROM PRINT-LINE-THREE 
AFTER ADVANCING 2 LINES. 

PERFORM 070-EXPAND~EDUCAT ION-CODE. 
PERFORM 080-EXPAND-PERFORMANCE-CODE. 
WRITE PRINT-LINE FROM PRINT-LINE-FOUR 
AFTER ADVANCING 2 LINES. 

WRITE PRINT-LINE FROM PRINT-LINE-FIVE 
AFTER ADVANCING 5 LINES. 

WRITE PRINT-LINE FROM PRINT-LINE-SIX 
AFTER ADVANCING 2 LINES. 

MOVE SPACES TO PRINT-SALARY-LINE. 

MOVE »/" TO PRT-SLASH. 

MOVE EMP-SALARY (1) TO PRT-SALARY. 

MOVE EMP-SALARY-MONTH ( 1 ) TO PRT-SALARY-MONTH. 

MOVE EMP-SALARY-YEAR (1) TO PRT-SALARY-YEAR. 

IF EMP-SALARY (2) > 

PERFORM 090-EVALUATE-SALARY-INCREASES 
MOVE PERCENT-BALARY-INCREASE TO PRT-SALARY-INCREABE 
MOVE MONTHS-BETWEEN- INCREASE TO PRT-SALARY-MBI 
WRITE PRINT-LINE FROM PRINT-SALARY-LINE 

AFTER ADVANCING 2 LINES 
MOVE SPACES TO PRINT-SALARY-LINE 
MOVE "/" TO PRT-SLASH 
MOVE EMP-SALARY (2) TO PRT-SALARY 
MOVE EMP-SALARY-MONTH (2) TO PRT-SALARY-MONTH 
MOVE EMP-SALARY-YEAR (2) TO PRT-SALARY-YEAR. 

WRITE PRINT-LINE FROM PRINT-SALARY-LINE 
AFTER ADVANCING 1 LINE. 

READ EMPLOYEE-FILE 

AT END MOVE "YES" TO EMPLOYEE-FILE-BWITCH. 



050~SEARCH-LOCAT I ON-TABLE . 
IF LOCATION-SUB > 10 

MOVE "UNKNOWN" TO PRT-LOCATION 
MOVE "YES" TO FOUND-LOCATION-SWITCH 
ELBE 

IF LOCATION-CODE (LOCATION-SUB) = EMP-LOC- 
MOVE EXPANDED-LOCATION (LOCATION-SUB) 
MOVE "YES" TO FOUND-LOCATION-SWITCH. 



CODE 
TO PRT- 



LOCATION 



060-SEARCH~T I TLE-TABLE . 

IF TITLE-INDEX > NUMBER-OF-TITLES 
MOVE "UNKNOWN" TO PRT-TITLE 
MOVE "YES" TO FOUND-TITLE-SWITCH 
ELSE 

IF TITLE-CODE (TITLE-INDEX) = ENP-TITLE-CODE 

MOVE TITLE-VALUE (TITLE-INDEX) TO PRT-TITLE 
MOVE "YEB" TO FOUND-TITLE-SWITCH 
ELSE 

SET TITLE-INDEX UP BY 1. 

070-EX PAND-EDUCAT I ON-CODE . 

IF EMP-EDUCATION-CODE < 1 OR EMP-EDUCATION-CODE > 8 

MOVE "UNKNOWN" TO PRT-EDUCATION 
ELSE 

MOVE EDU-NAME (EMP-EDUCATION-CODE) TO PRT-EDUCATION. 

080-EXPAND-PERFORMANCE-CODE. 

IF EMP-PERFORMANCE-CODE = "E" 

MOVE "EXCELLENT" TO PRT-PERFORMANCE 
ELSE 



FIGURE 10.15 Continued 
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002830 IF EMP-PERFORMANCE--CODE = "A" 

002840 MOVE "AVERAGE" TO PRT-PERFORMANCE 

002860 IF EMP- PERFORMANCE- CODE = "P" 

002870 MOVE "POOR" TO PRT-PERFORMANCE 

002880 ELSE 

002890 MOVE "UNKNOWN" TO PRT-PERFORMANCF. 

002900 

002910 090-EVALUATE~SALARY- INCREASES. 

002920 COMPUTE PERCENT-SALARY-INCREASE 

002930 = 100 * (EMP-SALARY (1) - EMP-SALARY <2)) / EMP-SAl ARY (2), 

002940 

002950 COMPUTE M0NTH5-BETWEEN-INCREASE 

002960 = <EMP-SALARY-YEAR <1) - EMP-SALARY-YEAR (2)) 

002970 + (EMP-SALARY-MONTH (1) - EMP-£iALARY-MONTH (2)). 

FIGURE 10.15 Continued 



PROJECTS 

1. A large photo album company sells photographs to school children in two coun- 
ties. They collect the following information for each student: name, grade, a preassigned 
number for the school, and an indication of up to three types of picture package(s) the 
parents wish to buy. There are seven types of packages, numbers 1 to 7, but the parent 
buys only one of each type desired. The input record contains the following data: 



Columns Field Picture 



1-25 


NAME 


X(25) 


26-29 


SCHOOL 


X(4) 


31-32 


GRADE 


XX 


34 


PACKAGE-1 


9 


36 


PACKAGE-2 


9 


38 


PACKAGE-3 


9 



The values appearing in columns 34, 36, and 38 indicate the type (not quantity) of re- 
spective picture package(s); e.g., a 4 in column 34, a 6 in column 36, and a blank in col- 
umn 38 indicate that the parent will buy 1 package of type 4 and 1 package of type 6. 
Your job is to write a program to print the total amount due from individuals who have 
purchased pictures. 

Do not print the names of children ordering no packages. For those students order- 
ing packages, i.e., those with entries in columns 34, 36, or 38, check for a valid number 
from 1 to 7 (use an 88-level entry with a VALUES ARE clause). If the number is invalid, 
display a message and the person's name, school, and grade. 

If the value in column 34, 36, or 38 is between 1 and 7, use it as a subscript and 
move the appropriate cost from the following table. Code this table into your program. 



Package Number 


Cost 


1 


$7.50 


2 


$4.00 


3 


$3.75 


4 


$2.50 


5 


$2.50 


6 


$8.00 


7 


$10.50 
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Print the total due for each child as it occurs as well as a grand total on a total line. 
The following test data are provided: 

WATSON, AMY 0023 02 1 7 

HOLMES, ANDREW 0023 02 1 

MITCHUM, MARY 0023 03 2 

HEDIN.SAIVI 0023 043 4 5 

FLETCHER, RAYMOND 0023 04 

FOSTER, ED 0023 05 18 

HARDING, ZACHARY 0023 07 2 

JACOBSON, SUE 0023 07 6 1 

2. Acme Widgets, Inc., has branch offices in New York, Los Angeles, and Miami 
(locations 1, 2, and 3, respectively). Each location has five departments: 10, 11, 12, 13, 
and 14. A file has been established which contains a record for each employee in Acme 
containing the following information: 



Field Columns Picture 

NAME 1-20 X(20) 

LOCATION 21 X 

DEPARTMENT 22-23 99 



Write a COBOL program to read the file, compute, and print: 

(a) The total number of employees in each location. 

(b) The total number of employees in each department throughout the company 
(five totals in all). 

(c) The total number of employees in each department in each location (15 totals 
in all). 

Use any suitable format to print the totals; make up your own test data. 
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OVERVIEW Virtually all of the programs shown so far have produced a report of one 
type or another. The results of this kind of data processing activity are very 
visible to the snnall business, as they contain information relating directly to 
the business; i.e., sales activity, accounts receivable, payroll, etc. Realize, 
however, that the files on which these reports are based must be maintained 
to reflect the changing nature of the physical environment. File mainten- 
ance, therefore, is the subject of this chapter and the next. 

Files can be maintained e'Wher sequentially ox nonsequentially. Sequen- 
tial maintenance means that every record is accessed in a given run, whereas 
nonsequential maintenance accesses only those records which are actually 
changed. Sequential processing is discussed in this chapter and nonsequential 
processing is deferred to Chapter 12. (A more advanced discussion of file 
maintenance may be found in R. Grauer, Structured Methods Through 
COBOL, Prentice-Hall, Inc. 1983.) 

The logic required for file maintenance, be it sequential or nonsequen- 
tial, is rather complex. Accordingly, considerable space is devoted to the 
design and testing of logically involved programs. Our coverage includes 
pseudocode, hierarchy charts, and top down testing. We begin, however, 
with a conceptual discussion of file maintenance. 



CONCEPTS 

OF FILE 

MAINTENANCE 



Every application must provide for additions, deletions, or changes to exist- 
ing records. In a payroll system, for example, new employees can be added, 
while existing employees can be terminated or receive salary increases. A 
sequential file update is shown schematically in Figure 11.1. Input to the 
sequential update consists of two files; an old master and a transaction file. 
The latter contains different kinds of transactions to accommodate various 
changes to the physical system. Output from the update is a new master file 
and a series of reports reflecting the update. 

Sequential maintenance is usually done periodically. Let us assume a 
payroll system is updated monthly and begins with a current master file on 
January 1. Transactions are collected (batched) during the month of Janu- 
ary. Then, on February 1, we take the master file as of January 1 (now the 
old master), the transactions accrued during January, and produce a new 
master as of February 1. The process continues from month to month. 
Transactions are collected during February. On March 1, we take the file 
created February 1 as the old master, run it against the February transac- 
tions, and produce a new master as of March 1. Figure 11.2 illustrates this 
discussion. 




FIGURE 11.1 Sequential file update 
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- Note: Processing done 
on February 1 

FIGURE 11.2 Two-period sequential update 



L- Note: Processing done 
on March 1 



In Figure 11.2, the master files for January, February, and March are 
physically different files. Further, since the January master gave rise to the 
February master, which in turn spawned the March master, the files are 
known as grandfather, father, and son, respectively. 



MURPHY'S LAW 



Murphy's law states that "if something can go wrong, it will— and at the 
worst possible time." (A corollary, by an unknown author, is that Murphy 
was an optimist.) The statement is particularly true for data processing, and 
it is absolutely essential that one provide as much backup as feasible. What if 
the diskette containing the February master were inadvertently destroyed on 
February 27, just prior to the next update? If one were prudent enough to 
keep both the January 1 master and transactions for January, it would be a 
simple matter to recreate the February 1 master file. A generally accepted 
practice is to keep at least the last three historical levels, i.e., the grandfather, 
father, and son, for backup purposes. 

How could information on a diskette be destroyed in the first place? 
First and foremost, by human error. It takes only a second to accidentally 
enter the system command, "KILL OLDMAST", and the file is irretrievably 
gone. A second way is through some type of hardware problem; e.g., a de- 
fective or worn diskette, a malfunctioning disk drive, a temporary loss of 
power, etc. Even though the programmer is not directly responsible, and in- 
deed did not cause such hardware problems, he or she still suffers the conse- 
quences. Anticipation is the key word. Assume things will go wrong and 
keep multiple copies of all data files (as well as multiple copies of all pro- 
grams) on different diskettes, in different locations. 

The price of the extra diskettes and/or the time required to run the 
TRS-80 BACKUP utility is a small one compared to losing a file and having 
no backup. 



REQUIREMENTS 

OF THE 

MAIIMTEIMANCE 

PROGRAM 



Given an overall view of the maintenance process, and the need for backup 
procedures, we now focus on specifics of the COBOL program. As can be 
seen from Figure 11.1, the maintenance program accepts an old master and a 
transaction file as input, and produces a new master file and various reports 
as output. 
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The transaction file must provide the ability to add new records to the 
master file, as well as delete or alter existing records. The exact nature of the 
transaction is indicated by a transaction code. The record layout of the old 
master and transaction files is seen in Figure 11.3. (The record layout of the 
new master is identical to that of the old master.) 

Four types of transactions are possible as indicated by the 88-level 
entries in Figure 11.3b. The nature of each transaction type is explained as 
follows: 

A — Addition: Indicates a new record is to be added to the master file. 
This transaction type requires name, social security number, and all 
other fields. 

C — Correction : Indicates that one or more fields in an existing master 
record is to be corrected. One enters the social security number and 
only those fields that require correction ; if a given field is correct in 
the master file, it should not appear on the transaction record. 

D — Deletion: Indicates that a record currently in the master file is to 
be deleted from the new master. (Deleted records, however, are to be 
written to a separate file for possible recall at a later date.) Enter 
name and social security number only . 

U — Salary Update: Indicates that an individual received a salary in- 
crease. The present salary on the old master becomes the previous 
salary on the new master, causing transaction salary to become the 
present salary on the new master. (Note well that two levels of salary 
data are present in the old master record as per the OCCURS clause 
of Figure 11.3a.) 

^Record layouts for old and new master are the same 



11 OLD-MASTER- RE CORD. 



05 
05 
05 
05 
05 
05 
0S 



OLD-SOC-SEC-NUMBER 
OLD-LAST-NAME 
OLD-LOC-CODE 
OLD-TITLE- CODE 
pLD-EDUCAT I ON-CODE 
OLD-PERFORMANCE-CODE 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 




OLD-SALARY - DATA OCCURS 2 TIMES, 
10 OLD-SALARY PIC 

10 OLD-SALARY-MONTH PIC 
10 OLD-SALARY-YEAR PIC 



X(9). 

X( 15), 

X<3). 

999. 

9. 

,X. 




9(5), 

99. 

99. 



Two levels of salary data are stored 

a) Old Master 

TRANS-RECORD. 

05 TRANS-SOC-SEC-NUMBER PIC X(9). 

05 TRANS-LAST-NAME PIC X(15), 

05 TRANS-LOC-CODE PIC X(3). 

05 TRANS-TITLE-CODE PIC 999. 

05 TRANB-EDUCAT I ON-CODE PIC 9. 

05 TRANS-PERFORMANCE-CODE PIC X. 

05 TRANS-SALARY PIC 9(5). 

05 TRANS-SALARY-MONTH PIC 99. 

05 TRANS-SALARY-YEAR PIC 99. 

05 FILLER PIC X(9). 

05 TRANS-CODE PIC X. 



88 


ADDITION 


VALUE 


" A " . 


88 


CORRECTION 


VALUE 


"C". 


88 


DELETION 


VALUE 


"D". 


88 


SALARY-UPDATE 


VALUE 


"U". 



Four transaction types 

b) Transaction 
FIGURE 11.3 Old master and transaction records 
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Murphy's law should also be considered in the maintenance procedure. 
Although the previous instructions for completing transactions are complete 
and unambiguous, data entry personnel may inadvertently introduce errors. 
Hence, the transactions should first be verified in a "stand alone" edit pro- 
gram to assure that they have been coded correctly. The edit program should 
check that each transaction has a valid transaction code; either A, C, D, or U. 
It should verify that the transactions are in sequential order by social secur- 
ity number. It should ascertain that all fields have been entered for an addi- 
tion, and so on. In practice, the edit program may have to be run several 
times until it accepts all incoming transactions as valid. Only when this has 
been accomplished should the maintenance program be attempted. (The 
chapter summary lists typical programming checks which may be included 
in the "stand alone" edit program.) 

Even when the transaction file has been accepted by the edit program 
as correct, it may still contain invalid transactions. That is because the edit 
program considers the transaction file as a separate entity and cannot check 
on its relationship to the master file. What happens, for example, if the trans- 
action social security number for an attempted correction to an existing 
master record is miscopied? Accordingly, the file maintenance program itself 
must contain additional error checks which could not be included in the 
stand alone edit program. These include: 

1. "No Matches" resulting from miscopied social security numbers for 
transaction types C, D, or U, 

2. "Duplicate Adds" which result when the social security number of 
an attempted addition is already present in the old master file, and 

3. "Duplicate Salary Updates", which occur when the transaction 
salary on a U type transaction already exists in the old master. 

The logic to accomplish the required processing is relatively com- 
plex. Accordingly, we develop the corresponding pseudocode to aid in the 
presentation. 



PSEUDOCODE Figure 11.4 contains pseudocode for the sequential update. Recall that 
pseudocode is an alternative to the more traditional flowchart as a means of 
expressing a program's decision making logic. Realize also that in sequential 
file maintenance, input is taken from two places, the old master and trans- 
action files, and that the action taken depends on the relationship between 
the most recently read records. 

If the social security number on the old master is less than the social 
security number on the transaction file, it means there is no activity for the 
current old master record. Hence, it should be merely copied to the new 
master file. If the social security numbers are equal, then additional process- 
ing is required to determine the type of transaction. An addition in this in- 
stance would signal an error, i.e., a "duplicate add", whereas a C, D, or U 
requires additional processing. 

Finally, if the old master social security number is greater than the 
transaction social security number, it means the current transaction is not 
on the existing master file. This in turn implies either a new record is to be 
added, or the social security number of an existing record was miscopied. 
A transaction code of A in this instance should be processed as a valid 
addition, whereas a code of C, D, or U implies a "no match." 

The author believes that the pseudocode of Figure 11.4 is a succinct. 



Open files 

Initial reads for old-master and transaction files 
-PERFORM until no more data on both files 
■IF old-master < transaction 
Copy old-master record 
Read old-master only 
ELSE IF old-master = transaction 

-IF addition — write error "Duplicate Record" 
ELSE IF correction — change fields 
ELSE IF deletion — delete record 
ELSE IF update — do salary update 
i-ENDIF 
Read old-master and transaction files 
ELSE IF old-master > transaction 
IF addition — add record 
ELSE — write error "No match" 
■ENDIF 

Read transaction file only 
■EIMDIF 
-ENDPERFORM 
Close files 
Stop run 



FIGURE 11.4 Pseudocode for sequential update 



yet eloquent way to communicate the previous discussion. Consequently, 
pseudocode is useful as both a design aid and documentation tool. It is a 
design aid because its availability facilitates coding of the subsequent pro- 
gram. It is Eilso a useful piece of program documentation because it concisely 
expresses a program's logic. 



HIERARCHY 
CHARTS 



The concept of a hierarchy chart was first introduced in Chapter 1. A hier- 
archy chart is analogous to a company's organization chart, except that the 
organization is a COBOL program. The hierarchy chart shows the functions 
which have to be accomplished by the program. It also shows the relation- 
ship of COBOL paragraphs to each other. 

Recall that each box in a hierarchy chart corresponds to a paragraph in 
the COBOL program. Each paragraph can only be called from the paragraph 
directly above it, and must return control to that paragraph when its job is 
completed. 

The hierarchy chart for the sequential maintenance program is shown 
in Figure 11.5. Each box in the hierarchy chart has a distinct job to per- 
form, the nature of which is indicated by the module name. The author en- 
deavors to use strong functional names for his paragraphs, consisting of a 
verb, adjective or two, and an object; e.g., UPDATE-EMPLOYEE-SALARY, 
CORRECT-OLD-RECORD, READ-TRANSACTION-FILE, and so on. In- 
deed, if paragraphs can't be named in this fashion, they may not be func- 
tional and thought should be given to possible redesign of the program. 

A module's position in a hierarchy chart indicates its importance in the 
program, just as a person's place in an organization chart says something 
about his status in the company. The most important modules, i.e., those 
with the more complex logic, are close to the top; the less important mod- 
ules, i.e., those with less complex logic, tend to be near the bottom. 

A hierarchy chart is also useful as both a design aid and documentation 
tool. It is helpful before the program is written (in the design phase) to indi- 
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FIGURE 11.5 Hierarchy chart for sequential update 

cate the necessary modules or COBOL paragraphs. It is useful after the 
program has been developed to indicate the relationship of the paragraphs to 
each other, and the hierarchy of PERFORM statements, within the program. 
(Boxes shaded in the upper left corner indicate paragraphs which may be 
called from more than one place in the program). 

Consider now the use of the hierarchy chart in program testing, using a 
methodology known as top down development. 



TOP DOWN 
DEVELOPMENT 



A new organization does not rush haphazardly into business by simultane- 
ously hiring all its employees. Rather, the owners of the company will care- 
fully develop an organizational strategy, begin to hire people at the top of 
the organization, and gradually work their way down. 

This analogy holds for program development as well. A program should 
be completely thought out before any coding begins. Moreover, coding 
should begin at the top of the hierarchy chart, with the modules containing 
the highest levels of logic. It should not begin in the lowest level routines, 
although many programmers unfortunately start in the wrong place. They 
become involved, even obsessed, with initially coding unimportant details. 
They spend, for example, inordinate amounts of time coding Data Division 
entries for report formatting and the like. 

The benefits of the top down approach are best seen in the light of pro- 
gram testing. The traditional approach to testing required that a program 
be completely coded before any testing could begin. While this may sound 
logical, it is possible, and preferable, to begin testing much earlier and well 
before coding is finished. This is accomplished by testing the modules in a 
program's hierarchy chart in the order in which they are developed, that is, 
from the top down. This is made possible by initially coding lower level 
modules as program stubs, single-sentence routines consisting of a DISPLAY 
statement to indicate only that the module has been called. 

The major advantage of top down testing is that "bugs" are detected 
earlier and easier than with conventional testing. It ensures that the higher 
level modules, which typically contain the more complex logic, are tested 
more frequently than lower level routines. It allows testing and coding to 
become parallel activities, which provides early feedback to the programmer. 
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So that you can fully appreciate the significance of top down testing, 
a partially completed program for sequential maintenance will be devel- 
oped. This program embodies the logic embedded in the pseudocode of 
Figure 11.4, and provides for all the modules in the hierarchy chart of 
Figure 11.5. However, the lowest level routines, UPDATE-EMPLOYEE- 
SALARY, CORRECT-OLD-RECORD, DELETE-OLD-RECORD, and so on, 
appear only as program stubs. It will be shown that significant testing can 
take place without providing details of the update, correction, or addition 
procedures. In other words, one is initially more concerned with the inter- 
action of these modules and the higher level routines that call them than 
with the specifics of updating, correcting, or adding records. Once this 
interaction has been coded and tested, it becomes almost trivial to complete 
the details. 

A Stubs Program 

Figure 11.6 contains a "complete, but incomplete" program for the sequen- 
tial update. This apparent contradiction in terms is resolved as follows. The 
program is complete in the sense that every paragraph of the hierarchy chart 
is accounted for. It is incomplete in that several of the lower level modules 
consist of a single DISPLAY statement or program stub. In other words, the 
details for the lower level modules, e.g., lines 1580 through 1680 in Figure 
11.6, have been omitted. 



000,100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 

000300 

000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 



IDENTIFICATION DIVISION. 
PROGRAM-ID. SEQBTUBS. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS~80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT TRANSACTION-FILE 

ASSIGN TO INPUT "TRANS/DAT". 
SELECT OLD-MASTER-FILE 

ASSIGN TO INPUT "TABLES/DAT". 
SELECT NEW-MABTER-FILE 

ASSIGN TO OUTPUT " NEWMAST/DAT" . 
SELECT DELETED- RE CORD-FILE 

ASSIGN TO OUTPUT "DELETED/DAT". 

DATA DIVISION. 

FILE SECTION. 

FD TRANSACTION-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 51 CHARACTERS 
DATA RECORD IS TRANS-RECORD.' 

01 TRANS-RECORD. 

05 TRANS-SOC-SEC-NUMBER PIC 
05 TRANS-LAST-NAME PIC 

05 TRANS-LOC-CODE PIC 

05 TRANS-TITLE-CODE PIC 

05 TRANS-EDUCATION-CODE PIC 
05 TRANS-PERFORMANCE-CODE PIC 
05 TRANS-SALARY PIC 

05 TRANS-SALARY-MONTH PIC 
05 TRANS-SALARY-YEAR PIC 

05 FILLER PIC 

FIGURE 11.6 Stubs program for sequential update 
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X<15), 
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X. 

9(5). 

99. 

99. 

X(9) . 



1300470 
000471 
000472 
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000480 
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000830 
000840 
000850 
000860 
000870 
000880 
000890 
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000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
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001000 
001010 
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001030 
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001060 
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001080 
001090 
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001110 
00 1 1 20 
001130 



TRANS- CODE 


PIC X. 




88 ADDITION 


VALUE 


"A". 


88 CORRECTION 


VALUE 


"C". 


88 DELETION 


VALUE 


"D". 


88 SALARY-UPDATE 


VALUE 


"U". 
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FD OLD-HABTER-FILE Four types of transactions 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS OLD-MASTER-RECORD. 
01 OLD-MASTER-RECORD. 

05 OLD-SOC-SEC-NUMBER 

05 OLD-LAST-NAME 

05 OLD-LOC-CODE 

05 OLD-TITLE-CODE 

05 OLD-EDUCATION-CODE 

05 OLD-PERFORMANCE-CODE 

05 OLD-SALARY-DATA OCCURS 

10 OLD-SALARY 

10 OLD-SALARY-MONTH 

10 OLD-SALARY-YEAR 

FD NEW-MASTER-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS NEW-MASTER -RECORD. 



PIC 


X(9). 


PIC 


X(15). 


PIC 


X(3). 


PIC 


999. 


PIC 


9. 


PIC 


X. 


TIMES. 




PIC 


9(5). 


PIC 


99. 


PIC 


99. 



01 NEW 


-MASTER-RECORD. 






05 


NEW-SOC-SEC-NUMBER 


PIC 


X(9). 


05 


NEW-LAST-NAME 


PIC 


X(15) . 


05 


NEW-LOC-CODE 


PIC 


X ( 3 ) . 


05 


NEW-TITLE-CODE 


PIC 


999. 


05 


NEW-EDUCAT I ON-CODE 


PIC 


9. 


05 


NEW-PERFORMANCE-CODE 


PIC 


X. 


05 


NEW-SALARY-DATA OCCURS : 


2 TIMES. 






10 NEW-SALARY 


PIC 


9<5>. 




10 NEW-SALARY-MONTH 


PIC 


99. 




10 NEW-SALARY-YEAR 


PIC 


99. 



FD DELETED-RECORD-FILE 

LABEL RECORDS ARE STANDARD ^Record layout is identical to old master 

RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IE DELETED-MASTER-RECORD. 
01 DELETED-MASTER-RECORD PIC X(50). 



WORKING-STORAGE SECTION. 

01 PROGRAM-SWITCHES. 

05 WS-OLD-MABT~READ-BWITCH 
05 WS-TRAN3-READ-SWITCH 

PROCEDURE DIVISION. 
010-UPDATE-MASTER-FILE. 

OPEN INPUT TRANSACTION-FILE 
OLD-MASTER-FILE 
OUTPUT NEW-MASTER-FILE 

DELETED-RECORD-FILE. 



FIC X(3) 
PIC X(3) 



VALUE SPACES. 
VALUE SPACES. 



'Initial reads 



PERFORM 
PERFORM 



1 80- RE AD-OLD-MASTER-F I LE . 
190-READ-TRANSACT ION-FILE 



PERFORM 020-COMPARE-IDS 

UNTIL TRANS-SOC-SEC-NUMBER = HIGH-VALUES 
AND OLD-SOC-SEC-NUMBER = HIGH-VALUES. 

CLOSE TRANSACT I ON-F I LE 
OLD-MASTER-FILE 
NEW-MASTER-FILE 
DELETED-RECORD-FILE. 

STOP RUN. 

!20-COMPARE-IDS. 



FIGURE 11.6 Continued 
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/Displays messages for testing 



001140 
001150 
001160 
00 1 1 70 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
00 1 260 
001270 
0012B0 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
001780 
001790 
001800 
001810 
001820 
001830 
001840 
001850 
001860 
001870 



DISPLAY 


1 It 


DISPLAY 


'RECORDS BEING PROCESSED". 


DISPLAY 


' TRANSACTION BOC SEC: " TRANB-SOC- SEC-NUMBER 




' TRANSACTION CODE: " TRANS-CODE. 


DISPLAY 


' OLD MASTER SOC BEC: " OLD-SOC-SEC-NUMBER. 



IF OLD-BOC-BEC- NUMBER < TRANB-BOC-SEC-NUMBER 

PERFORM 050-COPY~OLD-RECORD 
ELSE 

IF OLD-SOC-SEC-NUMBER == TRANB-BOC-SEC-NUMBER 
PERFORM 060-PROCESS-MATCHING--IDS 

ELBE 
PERFORM 100-CHECK-MISSING-TRANSACTION. 



IF WS-TRANB- READ-SWITCH = "YES" 

MOVE "NO " TO WS-TRANS-READ-SWITCH 
PERFORM 190-READ-TRANBACTION-FILE. 

IF WS-OLD-MAST-READ~SWITCH = "YES" 

MOVE "NO " TO WS~OLD-MAST-READ-SWITCH 
PE RFORM 1 80- READ- OLD-MASTER-F I LE . 



\: 



^Nested IF drives the program 



Reads old master and/or transaction file 



050~COPY-OLD-RECORD. 

DISPLAY "050-COPY-OLD~RECORD ROUTINE ENTERED". 
MOVE "YES" TO WB-OLD-MAST-READ-BWITCH. 

060-PROCESB-MATCH I NG- 1 DB . 

DISPLAY "060-PROCESS-MATCHING-IDS ROUTINE ENTERED". 

IF ADDITION 

PERFORM 070-WRITE-DUPLICATE-ADD-ERROR 
ELSE 

IF SALARY-UPDATE 

PERFORM 075-UPDATE-EMPLOYEE-SALARY 
ELBE 

IF CORRECTION 

PERFORM 0S0-CORRECT-OLD-RECORD 
ELSE 

IF DELETION 

PERFORM 090-DELETE-OLD-RECORD. 

MOVE "YES" TO WS-TRANB- READ-SWITCH. 
MOVE "YES" TO WS-OLD -MAST-READ-SWITCH. 



070-WRITE-DUPLICATE-ADD-ERROR. 

DISPLAY "070-WRITE-DUPLICATE-ADD-ERROR ROUTINE ENTERED". 



075-UPDATE-EMPLOYEE-SALARY. 

DISPLAY "075-UPDATE-EMPLOYEE-SALARY ROUTINE ENTERED". 



080-CORRECT-OLD-RECORD. 

DISPLAY "080-CORRECT-OLD-RECORD ROUTINE ENTERED" . 



090-DELETE-OLD-RECORD. 

DISPLAY "090-DELETE-OLD-RECORD ROUTINE ENTERED". 




Program stubs 



1 00-CHE CK- M I SB I NG -TRANSACT I ON . 

DISPLAY " 100-CHECK~MISSING-TRANSACTION ROUTINE ENTERED". 
IF ADDITION 

DISPLAY "RECORD WILL BE ADDED " TRANS-SOC-SEC-NUMBER 
ELSE 

DISPLAY "ERROR - NO CORRESPONDING MASTER RECORD FOR " 
TRANS-SOC-SEC-NUMBER. 

MOVE "YES" TO WB~TRANB-READ-BWITCH. 



1B0-READ--OLD-MASTER-FILE. 
READ OLD-MASTER-FILE 

AT END MOVE HIGH-VALUES TO OLD-SOC-SEC-NUMBER. 

1 90- RE AD-TRANSA CT I ON~F I LE . 
READ TRANSACTION-FILE 

AT END MOVE HIGH-VALUES TO TRANS-SOC-SEC-NUMBER. 
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The Environment Division provides for four files as per the program 
specifications. The Data Division is straightforward and consists essentially 
of FDs for the aforementioned files. The Procedure Division embodies the 
essential logic of the pseudocode of Figure 11.4. Figure 11.7 contains both 
test data and corresponding output, which was produced by the "stubs" pro- 

1111111 1 ISMITH ATL0105A1800007B10000000B0 

222222222 JONES CH I 0404E23000038 1 200000980 

333333333BAKER BOS0306P1950001B2180001280 

444444444M I LGROM DET0207G28000048 1 240000480 

555r355555CRAWFORD WAB0305E300000581250001 179 

a) Old Master file 

100000000BLACKBURN CHI C 

222222222 250000981 U 

333333333BAKER DET E 1281 C 

400000000WICKS CHI0206A350000781 A 

A44444444|viIL.GR0M DET0207G280000481240000480A 

555553555CRAWF0RD D 

777777777SAMUEL ATL0407E300000881 A 

b) Transaction file 

RECORDS BEING PROCESSED 

TRANSACTION BOC SEC: 100000000 TRANSACTION CODE: C 

OLD MASTER SOC SEC : 1 1 1 1 1 U 11 
100- CHECK-MISSING-TRANSACTION ROUTINE ENTERED 
ERROR NO CORRESPONDING MASTER RECORD FOR 100000000 

RECORDS BEING PROCESSED 

TRANSACTION SOC SEC: 222222222 TRANSACTION CODE: U 

OLD MASTER SOC SEC: 111111111 
050 COPY-OLD--RECORD ROUTINE ENTERED 

RECORDS BEING PROCESSED 

TRANSACTION SOC SEC: 222222222 TRANSACTION CODE: U 

OLD MASTER SOC SEC: 222222222 
060-PROCEBS-MATCHING--IDS ROUTINE ENTERED 
075-UPDATE-EMPLOYEE-SALARY ROUTINE ENTERED 

RECORDS BEING PROCESSED 

TRANSACTION SOC SEC: 333333333 TRANSACTION CODE: C 

OLD MASTER SOC SEC: 333333333 
060- PROCESS-MATCHING- IDS ROUTINE ENTERED 
O30-CORRECT -01. J)-RECORD ROUT I NE ENTERED 

RECORDS BEING PROCESSED 

TF^ANSACTION BOC SEC: 400000000 TRANSACTION CODE: A 

OLD MASTER SOC SEC: 444444444 
1 00-CHECK-MI BS I NG- TRANSACT I ON ROUT I NE ENTERED 
RECORD WILL P.E ADDED 400000000 

RECORDS BEING PROCESSED 

TRANSACTION BOC SEC: 444444444 TRANSACTION CODE: A 

OLD MASTER SOC SEC: 444444444 
060- PROCESS-MAT CH I NG- I DS ROUT I NE ENTE RED 
070-WRITE-DUPLI CATE-ADD-ERROR ROUTINE ENTERED 

RECORDS BEING PROCESSED 

TRANSACTION SOC SEC: 555555555 TRANSACTION CODE: D 

OLD MASTER SOC SEC: 555555555 
060-PROCESS-MATCHING-IDS ROUTINE ENTERED 
090-DELETE-OLD-RECORD ROUTINE ENTERED 

RECORDS BEING PROCESSED 

TRANSACTION BOC SEC: 777777777 TRANSACTION CODE: A 

OLD MASTER SOC SEC: 
1 00-CHE CK-M I SB I NG-T RANSACT I ON ROUT I NE ENTE RED 
RECORD WILL BE ADDED 777777777 

FIGURE 11.7 Test data and stubs output, (a) Old master file, (b) Trans- 
action file, (c) Stubs output. 
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gram of Figure 11.6. A critical analysis of that output will confirm that the 
program appears to work correctly. 

The Procedure Division begins by reading the first record from each 
file, social security numbers 100000000 and 111111111, for the transaction 
and old master files respectively. The current transaction is not in the old 
master, yet the transaction code was a C. The routine CHECK-MISSING- 
TRANSACTION was executed and an error message produced. 

The program retains the old master record with social security number 
111111111, but reads a new transaction record, social security number 
222222222 and transaction code U. The COPY-OLD-RECORD paragraph 
is executed correctly, indicating no activity for the old master record, social 
security number 111111111. 

This time the program retains the current transaction record, social 
security number 222222222, but reads a new old master record. The so- 
cial security numbers match (both are 222222222) causing execution of 
PROCESS-MATCHING-IDS, followed by UPDATE-EMPLOYEE-SALARY. 

New records are taken from both the old master and transaction files, 
with social security numbers again matching (both are 333333333). This 
time, however, CORRECT-OLD-RECORD is executed after PROCESS- 
MATCHING-IDS, because of the C transaction code. 

The reader may begin to appreciate that the program appears to be 
functioning correctly. Paragraphs are executed in the correct order. Note 
well how records are appropriately read from the two input files; i.e., some- 
times from the transaction file only, sometimes from the old master only, 
and sometimes from both. Realize also that virtually no processing is done 
in the lowest level paragraphs; e.g., CORRECT-OLD-RECORD, UPDATE- 
EMPLOYEE-SALARY, and so on. Nevertheless, the testing is worthwhile 
because it ensures that the higher level modules are working as intended. It 
is a relatively trivial matter to complete the program stubs and produce the 
completed program of Figure 11.8. 

The remainder of Figure 11.7 is left to the reader as an exercise. 



000100 
000110 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
0003 1 
000320 
000330 
000340 
000350 



I DENT I F I CAT I ON DIVISION. 
PROGRAM- I D . SEQUPDAT . 
AUTHOR. R GRAUER. 

ENV I RONNENT DIVISION. 
CONF I GURAT I ON SE CT I ON . 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 

I NPUT- 0UTPU1- SE CT I ON . 
FILE-CONTROL. 



SELECT 


TRANSACTION-FILE 


ASSIGN 


TO 


INPUT "TRANS/DAT". 


SELECT 


OLD- 


•MASTER-FILE 


ASSIGN 


TO 


INPUT "TABLES/DAT". 


SELECT 


NEW- 


-MASTER-FILE 


ASSIGN 


TO 


OUTPUT "NEWMAST/DAT" . 


SELECT 


DELETEL 


-RECORD-FILE 


ASSIGN 


TO 


OUTPUT "DELETED/DAT" . 



DATA DIVISION. 

FILE SECTION. 

FD TRANSACTION-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 51 CHARACTERS 
DATA RECORD IS TRANS-RECORD. 



Four files are required 



FIGURE 11.8 Completed sequential update 



000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000471 
000472 
000473 
000474 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
0006S0 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000B00 
000810 
000820 
000830 
000840 
000850 
000860 
000B70 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 



01 TRANS-RECORD. 



FD 



01 



TRANS-SOC-SEC-NUMBER 

TRANS-LAST-NAME 

TRANS-LOC-CODE 

TRANS-TITLE-CODE 

TRANS-EDUCAT I ON-CODE 

TRANS-PERFORMANCE-CODE 

TRANS-SALARY 

TRANS-SALARY-MONTH 

TRANS-SALARY-YEAR 

FILLER 

TRANS- CODE 



PIC X(9). 
PIC X(15), 
PIC X(3). 
PIC 999. 

9. 

X. 

PIC 9(5). 
PIC 99. 
PIC 99. 
PIC X(9). 
PIC X. 



PIC 
PIC 



88 


ADDITION 


VALUE 


"A". 


88 


CORRECTION 


VALUE 


"C". 


88 


DELETION 


VALUE 


"D". 


88 


SALARY-UPDATE 


VALUE 


"U" . 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



OLD-MASTER-F I LE ^ Four tVPes of transactions 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 50 CHARACTERS 

DATA RECORD IS OLD-MASTER-RECORD. 

OLD-MASTER-RECORD. 

05 OLD-SOC-SEC-NUMBER 

05 OLD-LAST-NAME 

05 OLD-LOC-CODE 

05 OLD-TITLE-CODE 

05 OLD-EDUCATION-CODE 

05 OLD-PERFORMANCE-CODE 

105 OLD -SALARY-DATA OCCURS "2 TIMES7| 

10 OLD-SALARY V PTC 9 ( 5 ) , 
10 OLD-SALARY-MONTh\ PIC 99. 
10 OLD-SALARY-YEAR \ PIC 99. 



PIC 


X(9). 


PIC 


X(15) 


PIC 


X(3) . 


PIC 


999. 


PIC 


9. 


PIC 


X. 



FD NEW-MASTE R-F I LE Two levels of salary data 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS NEW-MASTER-RECORD. 



01 NEW 


-MASTER-RECORD. 






05 


NEW-SOC-SEC-NUMBER 


PIC 


X(9) . 


05 


NEW-LAST-NAME 


PIC 


X(15). 


05 


NEW-LOC-CODE 


PIC 


X(3). 


05 


NEW-TITLE- CODE 


PIC 


999. 


05 


NEW-EDUCAT I ON-CODE 


PIC 


9. 


05 


NEW-PERFORMANCE-CODE 


PIC 


X. 


05 


NEW-SALARY-DATA OCCURS 2 TIMES 






10 NEW-SALARY 


PIC 


9(5). 




10 NEW-SALARY-MONTH 


PIC 


99. 




10 NEW-SALARY-YEAR 


PIC 


99. 



FD DELETED-RECORD-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS DELETED-MASTER- 

01 DELETED-MASTER-RECORD 



Record layout Identical to old master 

-RECORD. 

PIC X(50). 



WORKING-STORAGE SECTION. 

01 PROGRAM-SWITCHES. 

05 WB-OLD-MAST-READ~SWITCH PIC 
05 WS-TRANS-READ-SWITCH PIC 

PROCEDURE DIVISION. 

1 0-UPDATE-MASTER-F I LE . 

OPEN INPUT TRANSACTION-FILE 
OLD-MABTER-FILE 
OUTPUT NEW-MASTER-FILE 

DELETED-RECORD-FILE. 



X(3) 
X(3) 



VALUE SPACES. 
VALUE SPACES. 



Initial reads 



PERFORM 180~READ-OLD~MASTER-FILE. 
PERFORM 190-READ-TRANSACTION-FILE, 



FIGURE 11.8 Continued 
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00 1 020 

001030 

001040 

001050 

001060 

001070 

001080 

001090 

001100 

001110 

001120 

001130 

001200 

001210 

001220 

001230 

001240 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

0013A0 

001350 

001360 

001370 

001371 

001380 

001390 

001400 

001430 

001440 

001450 

001460 

001470 

001480 

001490 

001500 

001510 

001520 

001530 

001540 

001550 

001560 

001570 

001580 

001590 

001591 

001592 

001593 

001600 

001610 

001620 

001621 

001622 

001623 

001624 

001625 

001626 

001627 

001628 



PERFORM 020-COMPARE-IDS 

UNTIL TRANS-SOC-SEC-NUMBER = HIGH-VALUES 
AND OLD-BOC-SEC-NUMBER = HIGH-VALUES. 

CLOSE TRANSACTION-FILE 
OLD-MASTER-FILE 
NEW-MASTER-FILE 
DELETED-RECORD-FILE. 

STOP RUN. 

020-COMPARE-IDS. 



IF 


OLD- 


-SOC-SEC- 


MUMBER < TRANS-SOC- 


-SEC 


-NUMBER 




PERFORM 050 


-COPY-OLD-RECORD 






ELE 


3E 












IF 


OLD-SOC-SEC-NUMBER = TRANS- 


-SOC 


-SEC-NUMBER 






PERFORM 


060-PROCESS-MATCHING- 


IDS 




ELSE 












PERFORM 


100-CHECK-MISSING- 


-TRANSACTION. | 



IF WS-TRANS-READ-SWITCH = "YES" ^Nested IF statement drives the program 

MOVE "NO " TO WS-TRANS-READ-SWITCH 
PERFORM 190~READ-TRANSACT ION-FILE. 

IF WB-OLD-MAST-READ-SWITCH = "YES" 

MOVE "NO " TO WS-OLD-MAST-READ-SWITCH 
PERFORM 180-READ-OLD-MABTER-FILE. 

050-COPY-OLD-RECORD. 

MOVE OLD-MASTER-RECORD TO NEW-MASTER-RECORD. 

WRITE NEW-MASTER-RECORD. 

MOVE "YES" TO WS-OLD-MAST-READ-SWITCH. 

060-PROCESS-MATCHING-IDS. 



IF ADDITION 

PERFORM 070~WRITE-DUPLICATE-ADD-ERROR 
ELSE 

IF SALARY-UPDATE 

PERFORM 075-UPDATE-EMPLOYEE-SALARY 
ELSE 

IF CORRECTION 

PERFORM 080-CORRECT-OLD-RECORD 
ELSE 

IF DELETION 

PERFORM 090-DELETE-OLD-RECORD, 



MOVE "YES" TO WS-TRANS-READ-SWITCH. \ 

MOVE "YES" TO WS-OLD-MAST-READ-SWITCH. Determines additional processing 

for matching transaction 

070-WRITE-DUPLICATE-ADD-ERROR. 

DISPLAY "ERROR - RECORD ALREADY EXISTS IN MASTER FILE: " 

T R ANB-BOC-SE C-NUMBE R . 
MOVE OLD-MASTER-RECORD TO NEW-MASTER-RECORD. 
WRITE NEW-MASTER-RECORD. 

yChecl< for duplicate update 
075-UPDATE-EMPLOYEE-BALARY. / ^ "ic unuaiB 

MOVE OLD-MASTER-RECORD TiVNEW-MASTER-RECORD. 



[IF NEW-SALARY <1) 



TRANS-SALARY^ 



DISPLAY "ERROR 



SALARY UPDATE ALREADY DONE: 



TRANB-SOC-SE C-NUMBE R 



ELSE 



' Present data is moved to previous data 



I MOVE NEW-SALARY-DATA (1) TO NEW-SALARY-DATA (2)| 
MOVE TRANS-SALARY TO NEW-SALARY ( 1 ) 
MOVE TRANB-BALARY-MONTH TO NEW-SALARY-MONTH ( 1 ) 
MOVE TRANS-SALARY-YEAR TO NEW-SALARY-YEAR <1). 



FIGURE 11.8 Continued 
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001629 
001630 
001631 
001640 
001641 
001642 
001643 
001644 
001645 
001646 
001647 
001 64B 
001649 
001650 
001651 
001652 
001653 
001654 
001655 
001656 
001657 
001658 
001659 
001660 
001670 
001680 
001681 
001690 
001700 
001720 
001721 
001722 
001723 
001724 
001725 
001726 
001727 
001728 
001729 
001730 
001731 
001740 
001750 
001760 
001770 
001780 
001790 
001800 
001810 
001820 
001830 
001340 
001050 
001860 
001370 



WRITE NEW-HASTER-RECORD. 



0S0-CORRECT-OLD-RECORD. 



, Expanded from a program stub 



MOVE OLD-MABTER-RECORD TO NEW-MASTER--RECORD. 
IF TRANS-LAST-NAME NOT = SPACES 

MOVE TRANS-LAST-NAME TO NEW-LAST-NAME. 
IF TRANS-LOC-CODE NOT = SPACES 

MOVE TRANS-LOC-CODE TO NEW-LOC-CODE. 
IF TRANS-TITLE-CODE NOT = SPACES 

MOVE TRANS-TITLE-CODE TO NEW-TITLE-CODE. 
IF TRANS-EDUCATION-CODE NOT = SPACES 

MOVE TRANS-EDUCATION-CODE TO NEW-EDUCATION-CODE. 
IF TRANS-PERFORMANCE- CODE NOT = SPACES 

MOVE TRANS-PERFORMANCE-CODE TO NEW-PERFORMANCE-CODE 
IF TRANS-SALARY NOT = SPACES 

MOVE TRANS-SALARY TO NEW-SALARY ( 1 ) . 
IF TRANB-SALARY-MONTH NOT = SPACES 

MOVE TRANS-SALARY-MONTH TO NEW-SALARY-MONTH ( 1 ) . 
IF TRANB-SALARY-YEAR NOT = SPACES 

MOVE TRANS-SALARY-YEAR TO NEW-SALARY-YEAR ( 1 ) . 

WRITE NEW-MABTER-RECORD. 



090-DELETE-OLD-RECORD. 

MOVE OLD-MASTER-RECORD TO DELETED-MASTER-RECORD. 
WRITE DELETED-MASTER-RECORD. 

100-CHECK-MISSING-TRANBACTION. 
IF ADDITION 

MOVE TRANS-SOC-SEC-NUMBER TO NEW-SOC-SEC-NUMBER 

MOVE TRANS-LAST-NAME TO NEW-LAST-NAME 

MOVE TRANS-LOC-CODE TO NEW-LOC-CODE 

MOVE TRANS-TITLE-CODE TO NEW-TITLE-CODE 

MOVE TRANS-EDUCATION-CODE TO NEW-EDUCATION-CODE 

MOVE TRANS-PERFORMANCE-CODE TO NEW-PERFORMANCE-CODE 

MOVE TRANS-SALARY TO NEW-SALARY ( 1 ) 

MOVE TRANS-SALARY-MONTH TO NEW-SALARY-MONTH ( 1 ) 

MOVE TRANB-SALARY-YEAR TO NEW-BALARY-YEAR ( 1 ) 



I MOVE ZEROS TO NEW-SALARY-DATA 
WRITE NEW-MASTER-RECORD ^ 



ELSE 



^^^ Zeros out previous salary 

DISPLAY "ERROR - NO CORRESPONDING MASTER RECORD FOR 
TRANS-SOC-SEC-NUMBER. 

MOVE "YES" TO WS-TRANS-READ-SWITCH. 



1 80-READ-OLD-MABTER-F I LE . 
READ OLD-MASTER-FILE 

AT END MOVE HIGH-VALUES TO OLD-SOC- SEC-NUMBER. 

190-READ-TRANSACT ION-FILE. 
READ TRANSACTION-FILE 

AT END MOVE HIGH-VALUES TO TRANS-SOC-SEC-NUMBER. 



FIGURE 11.8 Continued 



THE COMPLETED 
PROGRAM 



Once the skeletal maintenance program has been tested and debugged, it is 
relatively simple to "fill in the blanks" and complete the maintenance pro- 
gram. In other words, the most difficult portion of the maintenance program 
is the interaction between modules, that is, whether to read from the old 
master or the transaction file, or both; and which lower level module to call, 
that is, CORRECT-OLD-RECORD, UPDATE-EMPLOYEE-SALARY, and so 
on. The details of these modules are easy by comparison. 

As is to be expected. Figure 11.8 is longer than its predecessor, due to 
the expansion of the program stubs. The essential structure of the Procedure 
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Division is unchanged, however, and the nested IF of lines 1200-1260 still 
drives the program. 

The logic of the lower level modules is straightforward and easy to fol- 
low. The UPDATE-EMPLOYEE-SALARY module first verifies that the 
salary update has not been done. It then moves what had been the present 
salary data (SALARY-DATA (1)) to the previous slot (SALARY-DATA (2)), 
and moves the transaction data to the present salary. 

The CORRECT-OLD-RECORD routine moves the current old master 
record to the new master, then checks the transaction fields one at a time for 
changes. Any time a field is to be changed, i.e., the transaction field is not 
blank, the transaction data is moved to the new master. Finally, the new 
master record is written. 

DELETE-OLD-RECORD writes the current old master record to a 
special file, DELETED-RECORD-FILE, for possible recall at a future date. 
It deletes the record from the new master file, simply by not writing it. 



UlllllllSMITH 
222222222J0NES 
333333333BAKER 
444444444MILGR0M 



ATL01 05A1 80000781 000000000 
CH I 0404E23000038 1 200000980 
BOB0306P 1 95000 i 82 1 8000 1 280 
DET0207G280000481 240000480 



[ E= K c: tr. tz c 



f/5CRAWF0RD 



1-JAS0305E3000005812500011791 



' Record will be deleted (see Transaction File) 
a) Old Master 



1 00000000BLACKBURN 



^^^,i„^.^^.^^ 



333333333BAKER 

400000000WICKS 

444444444MILGR0M 

555555555CRAWF0RD 

777777777SAMUEL 



CHI C 

250000981 U 

DET E 1281 C 

CHI0206A350000781 A 

DET0207S28000048 1 240000480A 

D 
ATL0407E300000881 A 



b) Transactions 

- Location was corrected 

-Salary update lias been done 



UlllllllSMITH 
222222222J0NES 
333333333BAKER 
400000000WICKB 
444444444MILGR0M 



f777777777SAMUEL 



ATL0 1 05 A 1 80^0078 1 000000000 
^ CH 1 0404E 125000B98 1 230000381 
11JJ0306E 19500 1281 180001280 
CH I 02B6A35000073 1 000000000 
DET0207G28000048 1 240000480 



ATL0407E3000008S 1 000000000 



ERROR 
ERROR 



Record has been added 
c) New Master 

NO CORRESPONDING MASTER RECORD FOR 100000000 
RECORD ALREADY EXISTS IN MASTER FILE: 444444444 

d) Error Messages 



i55555555CRAWF0RD WAS0305E30000058 1250001 179 

e) Deleted Filo 



FIGURE 11.9 Test data and output for sequential update, (a) Old master, 
(b) Transactions, (c) New master, (d) Error messages, (e) Deleted file. 
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Finally, CHECK-MISSING-TRANSACTION is executed when the cur- 
rent transaction record is not present in the old master. If the transaction 
code is an A, the record is written to the new master file ; if the code is not 
an A, the transaction record is flagged as a "no match." 

Figure 11.9 contains both input and output associated with the pro- 
gram of Figure 11.8. Observe that the incoming test data are identical to the 
input to the stubs program (Figure 11.7), but that the output is significantly 
different. 



SUIVIIVIARY This chapter is one of the most significant in the entire bool<. Although 
printed reports (or terminal displays) are a more tangible result of data 
processing, the files on which these reports are based must be periodically 
changed to reflect the changing nature of the physical environment. Hence 
the importance of file maintenance. 

The chapter began with a conceptual discussion of file maintenance, the 
need for backup and recovery procedures, and the importance of error 
checking. The chapter referred to the concept of a "stand alone" edit pro- 
gram in which the transaction file is processed separately pr/o/- to the update. 
The intent of such a program is to "scrub the data", and ensure that only 
valid transactions are presented to the update program. The following is a list 
of typical error checks: 

1. Numeric test: A numeric test ensures that a COBOL-specified nu- 
meric field, that is, one defined with a picture of 9's, does in fact 
contain numeric data. Note well that commas, decimal points, or 
blanks are not numeric and will cause problems in execution. The 
test is quite easy to implement in COBOL and takes the form 

IF EMPLOYEE-SALARY IS NOT NUMERIC 
PERFORM ERROR-ROUTINE. 

2. Alphabetic test: Analogous to a numeric test, except that it checks 
that alphabetic fields have been coded. Any errors detected here are 
typically less serious than for numeric fields. 

3. Reasonableness check: A reasonableness check assures that a given 
number is within "normal" bounds. These tests often take the form 
of limit checks, that is, testing that a value does not exceed a desig- 
nated upper or lower extreme. For example, a payroll program may 
check that no hourly worker's pay exceeds $400 per week. A 
weekly gross that exceeded this amount might be deemed unreason- 
able and the transaction flagged for further scrutiny. A range check, 
which ensures that a given value is within specified limits, is another 
form of reasonableness check. 

4. Consistency check: Verifies that the values in two or more fields are 
consistent, for example, salary and title. Since salary is partly a 
function of title, there should be a correlation between the two. An- 
other example of a consistency check would be an individual's credit 
rating and the amount of credit a bank is willing to extend. 
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5. Checking that a code exists: One of the most common, yet most im- 
portant tests. This author has seen countless errors compounded 
because this checi< was not implemented. For example: 

IF SEX = "M" 

ADD 1 TO NUMBER-OF-MEN 
ELSE 

ADD 1 TO NUMBER-OF-WOMEN. 

It is decidedly poor practice to assume that an incoming record is 
female if it is not male. Rather, both codes should be explicitly 
checked, and if neither occurs, a suitable error message should be 
printed. 

6. Sequence chec/<: This assures that incoming records are in proper 
order. It can also be used when several lines (in a data file) com- 
prise one record to assure that the lines within a record are in proper 
sequence. (The latter is described further under completeness check.) 

7. Completeness checl<: Verifies that all fields in a record, e.g., an ad- 
dition, are present. Realize, however, that all discussions to date 
have assumed a one-line record. It is also possible to have several 
lines (in a data file) in sequence comprise a single record. In this in- 
stance, the completeness check would ensure that the requisite 
number of lines were present for each record. 

8. Date chec/<: Ensures that an incoming date is acceptable. There are 
several variations in the way this test can be performed. For exam- 
ple, birth dates can be checked to ensure that no one would be hired 
who was younger than 16 or older than 65. Checks made on a date 
can also test that the day falls between 1 and 31, the month be- 
tween 1 and 12, and the year within a designated period, often just 
the current year. 

Realize, however, that even with such a complete edit program, there 
are certain errors which can only be detected in the maintenance program 
itself. These include miscopied social security numbers (i.e., no matches) and 
duplicate additions. The chapter developed a file maintenance program and 
included these error checks. 

Considerable space was also devoted to the concept of top down devel- 
opment and testing; i.e., testing a program before it is completely finished. 
The concepts of program stubs and hierarchy charts were covered in this 
discussion. 



TRUE/FALSE 

1. A program stub may be a one-sentence paragraph containing a DISPLAY statement. 

2. A COBOL program must be fully coded before testing can begin. 

3. The lower level modules in a hierarchy chart should be tested first. 

4. The modules in a hierarchy chart should be dependent on one another. 

5. Pseudocode has precise syntactical rules. 

6. A box in a hierarchy chart should depict more than one function for efficiency. 

7. A flowchart and a hierarchy chart convey similar kinds of information. 
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8. A sequential update requires tiiat every record be copied to the new master even if it 
didn't ciiange. 

9. A sequential update requires botli the old and new master files to be in sequence. 
10. A sequential update has two distinct master files; an old and a new. 



EXERCISES 



1. Given the old master file of Figure 11.9a, and the following transactions: 



1 0OOOOOOOCA LDW ELL 


CH10206A350000981 


A 


111111111SMITH 


DET020 


C 


333333333BAKER 




D 


555555555CRAWFORD 


350000981 


U 


666666666SHERRY 


CHI 


C 



Indicate the intended new master, error messages, and deleted file. 

2. Debugging: Figure 11.10 contains invalid output produced by the mcorrecf mainten- 
ance program of Figure 11.11. (The latter is a modified version of the program of 
Figure 11.8.) Find and correct the errors in Figure 11.10 so that it produces correct 
output; i.e., results identical to Figure 11.9 in the text. 



1 000000B0BLACKBURN 



^Record missing in new master 

CH I 

250000981 



333333333BAKER 



DET 



1281 



4000B0000WICKS 

444444444MILSR0M 

5555555r35CRAklF0RD 



CHI0206A350000781 A 

DET0207G280000481 240000480A 

D 



777777777SAMUEL 



ATL0407E300000881 



1 llllllllSMITH 
222222222J0NES 



Record was not added 
a) Transaction File 

ATL0105A1S00007S 1000000000 
CH I 0404E23000038 1 200000980 



333333333BAKER 



BOS0306 P 1 95000 1 82 1 8000 1280 I 



444444444MILGR0I1 
555555555 CRAWFORD 



1 llllllllSMITH 
222222222 JONES 
400000000WICKS 
444444444MILGR0M 



DET0207G28000048 1240000480 
WAS0305E3B00005S1250001 179 

"■Record was unintentionally deleted 
b) Old Master 

X— -Salary update did not work 

ATL0mi A 180000781 6)00000000 
CH 1 040 W5 000098 1 25000093 1| 
CHJ |030| 6A350000781 000000000 

Dirr0207G2e00004S i 240000430 

— Title is wrong on this record 



c) New Master 

555555555CRAWF0RD WAS0305E3000005S1 250001 179 

d) Deleted File 



ERROR - NO CORRESPONDING MASTER RECORD FOR 100000000 
ERROR - RECORD ALREADY EXISTS IN MASTER FILE: 444444444 

e) Error Messages 

FIGURE 11.10 Invalid output from sequential update, (a) Transaction 
file, (b) Old master, (c) New master. {d| Deleted file, (e) Error messages. 



000100 
000110 
000120 
000130 
000140 
0001 5B 
000160 
000178 
000 180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000230 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000471 
000472 
000473 
000474 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 



I DENT I F I CAT I ON D I V 1 3 1 ON . 
PROGRAM-ID. ESESUPDA. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONF I GU RAT I ON BE CT ION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRB-80. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT TRANSACTION-FILE 

ASSIGN TO INPUT "TRANS/DAT". 
SELECT OLD-MASTER-FILE 

ASSIGN TO INPUT "TABLES/DAT". 
SELECT NEW-MASTER-FILE 

ASSIGN TO OUTPUT " NEWMAST/DAT" . 
SELECT DELETED-RE CORD-FILE 

ASSIGN TO OUTPUT "DELETED/DAT". 

DATA DIVISION. 

FILE SECTION. 

FD TRANSACTION-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 51 CHARACTERS 

DATA RECORD IS TRANS-RECORD. 
01 TRANS-RECORD. 

05 TRANS-SOC-SEC-NUMBER PIC X(9). 

05 TRANS-LAST-NAME PIC X<15). 

05 TRANS-LOC-CODE PICX(3). 

05 TRANS-TITLE-CODE PIC 999. 

05 TRANS-EDUCATION-CODE PIC 9. 

05 TRANS-PERFORMANCE-CODE PIC X. 

05 TRANS-SALARY PIC 9(5). 

05 TRANS-SALARY-MONTH PIC 99. 

05 TRANS-SALARY-YEAR PIC 99. 

05 FILLER PIC X(9) . 

05 TRANS- CODE PIC X. 

83 ADDITION VALUE "A", 

88 CORRECTION VALUE "C", 

88 DELETION VALUE "D", 

88 SALARY-UPDATE VALUE "U", 

FD OLD-MASTER-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS OLD-MASTER-RECORD. 
01 OLD-MASTER- RE CORD. 

05 OLD-SOC-SEC-NUMBER PIC X(9). 

05 OLD-LAST-NAME PIC X(15). 

05 OLD-LOC-CODE PIC X(3). 

05 OLD-TITLE-CODE PIC 999. 

05 OLD-EDUCATION-CODE PIC 9. 

05 OLD-PERFORMANCE-CODE PIC X. 
05 OLD-SALARY-DATA OCCURS 2 TIMES. 

10 OLD-SALARY PIC 9(5). 

10 OLD-SALARY-MONTH PIC 99. 

10 OLD-SALARY-YEAR PIC 99. 

FD NEW-MASTER-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 50 CHARACTERS 

DATA RECORD IB NEW-MASTER-RECORD. 
01 NEW-MASTER-RECORD. 

05 NEW-SOC-SEC-NUMBER PIC X(9). 

05 NEW-LAST-NAME PIC X ( 1 5 ) . 

05 NEW-LOC-CODE PIC X(3). 

05 NEW-TITLE-CODE PIC 999. 

05 NEW-EDUCATION-CODE PIC 9. 

05 NEW-PERFORMANCE-CODE PIC X. 

05 NEW-SALARY-DATA OCCURS 2 TIMES. 

10 NEW-SALARY PIC 9(5). 



FIGURE 11.11 Incorrect sequential maintenance program 
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000780 10 NEW-SALARY- MONTH PIC 99. 

000790 10 NEW-SALARY-YEAR PIC 99. 

000800 

000810 FD DELETED-RECORD-FILE 

000820 LABEL RECORDS ARE STANDARD 

000830 RECORD CONTAINS 50 CHARACTERS 

000840 DATA RECORD IS DELETED-MASTER-RECORD. 

000850 01 DELETED-MASTER-RECORD PIC X(50). 

000860 

000870 WORKING-STORAGE SECTION. 

000880 01 PROGRAM-SWITCHES. 

000890 05 WS-OLD-MAST-READ-SWITCH PIC X<3) VALUE SPACES. 

000900 05 WS-TRANS-READ-SWITCH PIC X(3) VALUE SPACES. 

000910 

000920 PROCEDURE DIVISION. 

000930 010~UPDATE-MASTER-FILE. 

000940 OPEN INPUT TRANSACTION-FILE 

000950 OLD-MASTER-FILE 

000960 OUTPUT NEW-MASTER--FILE 

000970 DELETED-RECORD-FILE. 

000980 

000990 PERFORM 1S0-READ-OLD-MASTER-FILE. 

001000 PERFORM 190-READ-TRANSACTION-FILE. 

001010 

001020 PERFORM 020-COMPARE-IDS 

001030 UNTIL TRANS-SOC-SEC-NUMBER = HIGH-VALUES 

001040 OR OLD-SOC-SEC-NUMBER = HIGH-VALUES. 

001050 

001060 CLOSE TRANSACTION-FILE 

001070 OLD-MASTER-FILE 

001080 NEW-MASTER-FILE 

001090 DELETED-RECORD-FILE. 

001100 

001110 STOP RUN. 

001120 

001130 020-COMPARE-IDS. 

001200 IF OLD-SOC-SEC-NUMBER < TRANS-SOC-SEC-NUMBER 

001210 PERFORM 050-COPY-OLD-RECORD 

001220 ELSE 

001230 IF OLD-SOC-SEC-NUMBER = TRANS-SOC-SEC-NUMBER 

001240 PERFORM 060-PROCESS-MATCHING-IDS 

001250 ELSE 

001260 PERFORM 100- CHECK-MISSING-TRANSACTION. 

001270 

0012S0 IF WB-TRANS-READ-SWITCH = "YES" 

001290 MOVE "NO " TO WS-TRANS-READ-SWITCH 

001300 PERFORM 190-READ-TRANSACTION-FILE. 

001310 

001320 IF WS-OLD-MAST-READ-SWITCH = "YES" 

001330 MOVE "NO " TO WS-OLD-MAST-READ-SWITCH 

001340 PERFORM 180-READ-OLD~MASTER-FILE. 

001350 

001360 050-COPY-OLD~RECORD. 

001370 MOVE OLD-MASTER-RECORD TO NEW-MASTER-RECORD. 

001371 WRITE NEW-MASTER-RECORD. 

001380 MOVE "YES" TO WS-OLD-MAST-READ-SWITCH. 

001390 

001400 060-PROCEBS-MATCHING-IDS. 

001430 IF ADDITION 

001440 PERFORM 070-WRITE-DUPLICATE-ADD-ERROR 

001450 ELSE 

001460 IF SALARY-UPDATE 

001470 PERFORM 075-UPDATE-EMPLOYEE-SALARY 

001480 ELSE 

001490 IF CORRECTION 

001500 PERFORM 080-CORRECT-OLD-RECORD 

001510 ELSE 

001520 IF DELETION 

001530 PERFORM 090-DELETE-OLD-RECORD. 

001540 

001550 MOVE "YES" TO WS-TRANS-READ-SWITCH. 

001560 MOVE "YES" TO WS-OLD-MAST-READ-SWITCH. 

FIGURE 11.11 Continued 
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001570 

00 1 580 070-WR I TE-DUPL I CATE-ADD- ERROR . 

001590 DISPLAY "ERROR - RECORD ALREADY EXISTS IN MASTER FILE: " 

001591 TRANS-BOC- SEC-NUMBER. 

001592 MOVE OLD-MASTER-RECORD TO NEW-MASTER-RECORD. 

001593 WRITE NEW-MABTER-RECORD. 
001600 

001610 075-UPDATE-EMPLOYEE-BALARY. 

001620 MOVE OLD-MASTER-RECORD TO NEW-MASTER-RECORD. 

001621 IF NEW-SALARY (1) = TRANB-BALARY 

001622 DISPLAY "ERROR - SALARY UPDATE ALREADY DONE: " 

001623 TRANB-SOC-SEC-NUMBER 

001624 ELSE 

001625 MOVE TRANS-SALARY TO NEW-SALARY (1) 

001626 MOVE TRANS-SALARY-MONTH TO NEW-SALARY-MONTH (1) 

001627 MOVE TRANB-SALARY-YEAR TO NEW~BALARY-YEAR (1) 

001628 MOVE NEW-3ALARY-DATA (1) TO NEW-SALARY-DATA (2). 
001629 

001630 WRITE NEW-MASTER-RECORD. 
001631 

001640 0B0-CORRECT-OLD-RECORD. 

001641 MOVE OLD-MASTER-RECORD TO NEW-MASTER-RECORD. 

001642 IF TRANS-LABT-NAME NOT = SPACES 

001643 MOVE TRANS-LAST-NAME TO NEW-LAST-NAME. 

001644 IF TRANB-LOC-CODE NOT = SPACES 

001645 MOVE TRANS-LOC-CODE TO NEW-LOC-CODE. 

001646 IF TRANS-TITLE-CODE NOT = SPACES 

001647 MOVE TRANS-TITLE-CODE TO NEW-TITLE-CODE. 

001648 IF TRANS-EDUCATION-CODE NOT = SPACES 

001649 MOVE TRANS-EDUCATION-CODE TO NEW-EDUCATION-CODE. 

001650 IF TRANS-PERFORMANCE-CODE NOT = SPACES 

001651 MOVE TRANS-PERFORMANCE-CODE TO NEW-PERFORMANCE-CODE. 

001652 IF TRANS-SALARY NOT = SPACES 

001653 MOVE TRANS-SALARY TO NEW-SALARY (1). 

001654 IF TRANS-SALARY-MONTH NOT = SPACES 

001655 MOVE TRANS-SALARY-MONTH TO NEW-SALARY-MONTH (1). 

001656 IF TRANS-SALARY- YEAR NOT = SPACES 

001657 MOVE TRANS-SALARY-YEAR TO NEW-SALARY-YEAR (1). 
00165S 

001670 090-DELETE-OLD-RECORD. 

001680 MOVE OLD-MASTER-RECORD TO DELETED-MABTER-RECORD. 

001681 WRITE DELETED-MASTER-RECORD. 
001690 

001700 100-CHECK-MISBING-TRAWBACTION, 

001720 IF ADDITION 

001721 MOVE TRANS-BOC-BEC-NUMBER TO NEW-SOC-SEC-NUMBER 

001722 MOVE TRANS-LAST-NAME TO NEW-LAST-NAME 

001723 MOVE TRANB-LOC-CODE TO NEW-LOC-CODE 

001725 MOVE TRANS-EDUCATION-CODE TO NEW-EDUCATION-CODE 

001726 MOVE TRANS-PERFORMANCE-CODE TO NEW-PERFORMANCE-CODE 

001727 MOVE TRANS-SALARY TO NEW-SALARY (1) 

001728 MOVE TRANB-SALARY-MONTH TO NEW-SALARY-MONTH (1) 

001729 MOVE TRANS-SALARY-YEAR TO NEW-SALARY-YEAR (1) 

001730 MOVE ZEROS TO NEW-BALARY-DATA (2) 

001731 WRITE NEW-MASTER-RECORD 
001740 ELBE 

001750 DISPLAY "ERROR - NO CORRESPONDING MASTER RECORD FOR 

001760 TRANS-SOC-SEC-NUMBER. 

001770 

0017B0 MOVE "YES" TO WS-TRANS-READ-SWITCH. 

001790 

001800 

00 1810 1 80-READ-OLD~MASTER-F I LE . 

001820 READ OLD-MASTER-FILE 

001030 AT END MOVE HIGH-VALUES TO OLD-SOC-SEC-NUMBER. 

001840 

001 850 1 90-READ-TRANSACT I ON-F I LE . 

001360 READ TRANSACTION-FILE 

001870 AT END MOVE HIGH-VALUES TO TRANS-BOC-BEC-NUMBER. 

FIGURE 11.11 Continued 
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NONSEQUENTIAL 

FILE 
MAINTENANCE 



OVERVIEW This chapter continues the discussion of file maintenance begun in Chapter 
11.lt differs significantly, however, in that the nnaster file is accessed nonse- 
quentially; i.e., one goes directly to the record being changed without having 
to read unaffected records in an old master file. In other words, a nonse- 
quential update rewrites only those records which actually have activity, 
whereas a sequential update copies every record from an old master to a new 
file, even if it didn't change. 

The unit opens with a conceptual discussion of diskette organization 
and indexed files. It introduces additional COBOL elements necessary for 
this type of file organization, then presents three complete programs to 
create, print, and update an indexed file. Presentation of the logic in the 
latter application is facilitated through pseudocode and hierarchy charts. 



DISKETTE A diskette is divided into 77 concentric circles known as tracks. A track is 
ORGANIZATION further subdivided into 26 sectors. Each sector has the capacity to store 256 
bytes (or characters) so that the capacity of a Model II diskette is: 

256 bytes 26 sectors 77 tracks _ bytes 



sector track diskette ' diskette 

The relationship between tracks and sectors is shown in Figure 12.1. 




Track 76 



Every track is divided 
into 26 sectors 



FIGURE 12.1 Organization of a diskette 



The 77 sectors on a diskette are numbered from to 76. In actuality, 
the capacity of track is half that of the other 76 tracks, so that the true 
capacity of a Model II diskette is: 

(256 X 26 X 76) + ¥2 (256 X 26 X 1) = 509,184 

The exact numbers are not of particular importance. It is helpful, how- 
ever, if the reader retains the track and sector concepts in order to better 
understand indexed file organization. 



INDEXED FILES 



The discussion that follows is an intuitive representation of how indexed 
files might be estabhshed under TRSDOS. It is included to provide insight 
as to how an indexed file permits both sequential and nonsequential access. 
An indexed file requires that records be loaded sequentially so that indexes 
can be established for direct access of individual records. Conceptually, there 
are two levels of indexing: a higher level or track index, and a lower level or 
sector index. 

There is one track index for the entire file, and many sector indexes, 
one for each track in the file. The track index contains the key of the highest 
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Track Number 


Highest Key 


50 


130 


51 


249 


52 


800 


53 


1240 


54 


1410 


55 


1811 


56 


2069 


57 


2410 


58 


2811 


59 


3040 


60 


3400 


61 


3619 


62 


4511 


63 


4900 


64 


5213 


65 


6874 



FIGURE 12.2 Hypothetical track index 

record contained in every track of the file. The sector index (for a given 
track) contains the key of the highest record for every sector in that track. 
As illustration, assume that an indexed file was loaded on tracks 50 through 
65 of a diskette. A hypothetical track index (Figure 12.2) for this file con- 
tains 16 entries (one for each track). 

Assume that record key 430 is to be retrieved. The record key, 430, is 
first compared to entries in the track index. Since an indexed file is loaded 
sequentially, record 430, if it is present, is in track 52. (The highest key in 
track 51 is 249, the highest key in track 52 is 800; hence, key 430 if it is 
present is in track 52.) 

Next, the sector index for track 52 (Figure 12.3) is examined. Each 
entry in the sector index contains the highest key for that sector. (Observe 
that the last entry in the sector index has a key of 800, which matches the 
entry in the track index for track 52.) The highest keys on sectors 5 and 6 
are 346 and 449, respectively; hence key 430, if it is present, is contained in 
sector 6 of track 52. The system now knows both the track and sector on 
which the record resides and may proceed directly to it. 

Figure 12.3 implies that certain sectors within a track are reserved for 
special purposes. Sector 1, for example, stores the sector index itself. Sectors 



Sector 


Highest Key 


1 


Sector Index 


2 


268 


3 


289 


4 


301 


5 


346 


6 


449 


7 


491 


8 


516 


20 


800 


21-26 


Overflow 



FIGURE 12.3 Hypothetical sector Index for track 52 
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21-26 are overflow areas which accommodate records added to the file after 
it has been created. 

When an indexed file is accessed, the I/O (input/output) routines of the 
operating system perform the preceding search for the programmer. The 
track and sector indexes are established automatically by the system when 
the file is loaded. The COBOL necessary to create and access indexed files is 
straightforward and should present little difficulty when introduced. 

Let us address one last question before leaving this discussion: What 
happens when a new record is added to an existing indexed file? A major 
disadvantage of sequential organization is that the entire file has to be re- 
written if even a single record is added. One might logically ask, if indexed 
files are loaded sequentially, shouldn't a similar requirement pertain? Fortu- 
nately, the answer is no. The operating system anticipates the problem by 
preallocating space (overflow areas) in each track. When and if new records 
are added, linkages will be established so that the file is logically but not 
necessarily physically in sequential order. The details of this need not con- 
cern the reader. (Realize, however, that the normal TRSDOS PRINT utility 
will not work with an indexed file, because the file is not in strict sequential 
order. Instead, one has to develop a separate COBOL program to print the 
contents of an indexed file. ) 

We proceed to a discussion of the COBOL requirements for indexed 
files. 



COBOL 

REQUIREMENTS 

FOR INDEXED 

FILES 



Indexed files have additional COBOL requirements that center on the En- 
vironment and Procedure Divisions. The former uses an expanded SELECT 
statement. The latter uses new forms of the OPEN, READ, and WRITE, and 
introduces the REWRITE and DELETE verbs. 

An abbreviated form of the SELECT statement associated with indexed 
files is: 



SELECT file-name 

ASSIGN TO RANDOM external-file-name 



ORGANIZATION IS INDEXED 



ACCESS MODE IS 



SEQUENTIAL 



RANDOM 



RECORD KEY IS data-name-1 
[file status is data-name~2] 



The ASSIGN clause specifies RANDOM (as opposed to INPUT or 
PRINT which have been used throughout). It also references an external file 
on the diskette which contains the data itself. 

ORGANIZATION IS INDEXED is requked to inform the compiler that 
an indexed file will be used, and that complex I/O routines will be required. 
Everything else having to do with adding, deleting, or changing records is 
handled automatically by routines in the operating system. 

ACCESS MODE can be either SEQUENTIAL or RANDOM (that is, an 
indexed file can still have its records processed sequentially). Omission of 
this clause defaults to sequential access, and records will be read in ascending 
order of the record key. Realize, however, that when an indexed file is in- 
itially created, its records must be in sequential order. 
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The RECORD KEY clause indicates the field in each record on which 
the file is ordered and is used to build indexes for the operating system. Each 
record in the file requires a unique key. 

FILE STATUS is used in conjunction with DECLARATIVES and is ex- 
plained in that section. 

A new option of the OPEN verb, OPEN I-O, is sometimes required. 
Consider first the syntax of the OPEN statement : 

( INPUT \ 
OUTPUt I file-name 
IzO ) 

INPUT and OUTPUT are used when an indexed file is accessed or cre- 
ated, respectively. However, when only a single file is used as both the old 
and new master, as for nonsequential maintenance, OPEN 1-0 is necessary. 
In other words, the single master file functions as both an input and an out- 
put file. 

The READ verb has a new format: 

READ file-name [ INTO identifier] 

[ INVALID KEY imperative statement) 

This option is used only for nonsequential access (as opposed to the AT 
END format for sequential access). A random READ is preceded by a MOVE 
statement, in which the desired value of RECORD KEY is moved to the data 
name designated as the RECORD KEY in the SELECT statement. The IN- 
VALID KEY clause is activated if the specified key cannot be found in the 
indexed file. For example: 

iVIOVE 888888888 TO SOC-SEC-NUMBER. 
READ INDEXED-FILE 

INVALID KEY DISPLAY "RECORD NOT FOUND". 

The indexed file is randomly accessed for the record with social security 
number 888-88-8888 (assuming SOC-SEC-NUMBER was designated as the 
RECORD KEY). If that record does not exist, the INVALID KEY condition 
is raised. 

The WRITE statement has an additional clause associated with it. 
Consider: 

WRITE record-name [ FROIVI identifier] 
[ INVALID KEY imperative statement] 

Recall that when creating an indexed fUe incoming records are required to be 
in sequential order, and further that each record is to have a unique key. The 
INVALID KEY condition is raised if either of these requirements is violated. 
(The COBOL syntax indicates that this clause is optional, and the same ef- 
fect can be achieved through use of the DECLARATIVES. The latter is dis- 
cussed later in the chapter.) 

The REWRITE verb is used to replace existing records in a file when 
that file has been opened as an I-O file. Its syntax is similar to that of the 
WRITE verb, as shown: 

REWRITE record-name [ FROM identifier] 
[INVALID KEY imperative statement] 
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The INVALID KEY condition is indicated if the record key of the last rec- 
ord read does not match the key of the record to be replaced. 

Finally, the DELETE statement removes a record from a file. Its syntax 
is simply: 

DELETE file-name 

[I NVALID KEY imperative statement] 

The DELETE statement can be used only on a file that was opened in 
the I-O mode. The complex I-O routines associated with indexed files 
have built in error processing routines, e.g., those triggered by the INVALID 
KEY clause. The programmer can supplement this action through use of 
DECLARATIVES. 

DECLARATIVES DECLARATIVES consist of one or more special purpose sections, which 
appear at the beginning of the Procedure Division, before the first executa- 
ble statement. The purpose of DECLARATIVES is to expand the normal 
error handling procedures of the operating system. It is especially useful in 
conjunction with indexed files. Consider Figure 12.4. 

If an I/O error occurs during processing of INDEXED-FILE, control is 
transferred to the appropriate DECLARATIVES section. Note well the USE 
statement in Figure 12.4, which indicates that the section will be executed 
only after an I/O error for INDEXED-FILE. 

The INDEXED-ERROR section in turn contains executable code to dis- 
play the value of two data names which were defined in Working-Storage and 
appeared in the SELECT statement for INDEXED-FILE. The FILE STATUS 
clause designated the two-byte area which is updated by the operating sys- 

ENVIRONMENT DIVISION. 

SELECT INDEXED-FILE 

ASSIGN TO RANDOM "INDEXED/DAT" 
ORGANIZATION IS INDEXED 
ACCESS MODE IS SEQUENTIAL 
RECORD KEY IS NDX-SOC-SEC-NUMBER 
I F I LE STATUS IS WS-F I LE-STATUS-BYTES. | 



-FILE STATUS references a 
DATA DIVISION. ^-'-^' two byte area defined in 




Working-Storage 



WO RKING-STORAGE SECTIO N 
01 I WS-FILE-STATUS-BYTES 
05 FIRST-STATUS-BYTE 
05 SECOND-STATUS-BYTE 



, DECLARATIVES must appear at the beginning 

PROCEDURE DIVISION,,.^— -"^ of the Procedure Division 



DECLARATIVES. 



INDEXED-ERROR SECTION. [ —Declarative procedures are sections 



USE AFTER STANDARD ERROR PROCEDURE ON INDEXED-FILE. 



D ISP LAY-STATUS-BYTES. 

DISPLAY "FILE STATUS BYTES" 

"BYTE 1 =" FIRST-STATUS-BYTE 

"BYTE 2 = " SECOND-STATUS-BYTE. 
DISPLAY "SHOULD PROCESSING CONTINUE (Y/N)?" 
ACCEPT USER-PROCESSING-SWITCH. 
IF USER-PROCESSING-SWITCH = "Y" 

NEXT SENTENCE 
ELSE 

STOP RUN. _^The remainder of the Procedure Division 

follows END DECLARATIVES 



END DECLARATIVES. 



FIGURE 12.4 Use of DECLARATIVES 
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tem after every operation associated with the file. The user has the abiUty 
to interrogate these bytes to determine the success or failure of each opera- 
tion. (The COBOL Reference Manual, catalog number 26-4703, explains the 
meaning of the various status codes.) 

When an I/O problem occurs, control is transferred to DECLARA- 
TIVES, which displays the reason via the FILE STATUS bytes. The user is 
then given the opportunity to terminate or continue processing based on the 
value of these bytes. Consider now Figure 12.5 which creates an indexed file. 



000100 

000110 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 

000410 

000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 

000610 

000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 



IDENTIFICATION DIVISION. 
PROGRAM-ID. INDEXDAT. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONF I GURAT I ON SECT I ON . 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-80. 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT INDEXED-FILE 
ASSIGN TO RANDOM 
[organization IS INDEXED 
ACCESS MODE IS SEQUENTIAL 




Denotes an indexed file 



RECORD KEY IS NDX-SOC-SEC-NUMBER. 



data division. 

file section. 

fd indexed-file 

label records are standard 
record contains 50 charac^rs 
data record is index ed- record, 
indexed-record. 
[05 ndx-soc-sec-number" 



01 



RECORD KEY clause references a data 
name defined within the indexed record 



PIC X(9) . 



05 rest-of-indexed-record 



procedure division, 
mainline. 



pic X(41 ). 



JNDEXED-FILE is an output file 



[OPEN OUTPUT INDEXED-FILE.r 
MOVE spaces TO INDEXED-RECORD. 



MOVE '■UlllllllSMITH 

TO INDEXED-RECORD. 

WRITE INDEXED-RECORD 

INVALID KEY DISPLAY 

MOVE "222222222 JONES 
TO INDEXED-RECORD. 



ATL01 05 A 1 8000078 1 000000000 " 
-WRITE statement contains an INVALID KEY clause 

fRROR ON ADDING INDEXED RECORD". 

CHI 0404E23000038 1200000980" 



WRITE INDEXED-RECORD 

INVALID KEY DISPLAY "ERROR ON ADDING INDEXED RECORD" 



MOVE "33333333" 



^KER 



BOS0306 PI 95000 182 18000 1280" 



WRITE INDEXFD-RECORa^^ RECORD KEYS are unique, and in ascending order 

INVALID KEY DIBp/aY "ERROR ON ADDING INDEXED RECORD". 



MOVE "^4444444-: 



[LQROM 



DET0207G2B000048 1240000480" 



TO INDEXED-REffORD. 
WRITE INDEXED-RECORD 

INVALID KEY DISPLAY "ERROR ON ADDING INDEXED RECORD". 



MOVE "555555555fCRAWF0RD 



WAS0305E30000058 1250001 179" 



TO INDEXED-RECORD. 
WRITE INDEXED-RECORD 

INVALID KEY DISPLAY "ERROR ON ADDING INDEXED RECORD". 

CLOSE INDEXED-FILE. 
STOP RUN. 

FIGURE 12.5 Program to create an indexed file 



CREATING AN 
INDEXED FILE 



Figure 12.5 contains a COBOL program to create an indexed file. It is similar 
in concept to Figure 3.5, which created a sequential data file. 

The major difference between the two programs is the SELECT state- 
ment (lines 210-250 of Figure 12.5). Note well that the ASSIGN clause 
specifies a RANDOM file, although the file is accessed sequentially in this 
program. Observe also the inclusion of ORGANIZATION IS INDEXED. Of 
greatest significance is the RECORD KEY entry which refers to a field con- 
tained in the record description for INDEXED-FILE. The value of NDX- 
SOC-SEC-NUMBER must be unique for every record in the file; moreover, 
records must be in ascending order of NDX-SOC-SEC-NUMBER when the 
file is initially created. The RECORD KEY is used by the TRS-80 operating 
system to build the necessary indexes for the file. (The reader should observe 
the unique and ascending values in lines 420, 470, 520, 570, and 620.) 

The WRITE statements of Figure 12.5 all contain an INVALID KEY 
clause. Recall that record keys for an indexed file must be unique and in 
ascending order when the file is created. The INVALID KEY clause will 
be triggered if either condition is not met. 



PRINTING AN 
INDEXED FILE 



LOGICAL 

REQUIREMENTS 

OF THE 

MAINTENANCE 

PROGRAM 



The PRINT utility, introduced in Chapter 3, has been used exclusively to 
print the contents of a sequential file. The utility operates on data files (files 
which are input to, or output from, a program), print files (reports produced 
by a program), and even the output of the COBOL compiler, i.e., files with 
the extension of LST. The PRINT utility will not, however, work for an in- 
dexed file because the file is not strictly sequential. 

The reader should convince himself that PRINT will not work with an 
indexed file. This is readily accomplished by compiling and subsequently 
running the program of Figure 12.5 to create the indexed file, INDEXED/ 
DAT. After INDEXED/DAT has been created, attempt the command PRINT 
INDEXED/DAT and observe what happens. 

The contents of an indexed file are printed only by writing and exe- 
cuting a COBOL program. An example of such a program is shown in Figure 
12.6. The logic of Figure 12.6 is trivial, and virtually nothing is new about 
the program. The SELECT statement is the same as in Figure 12.5. Observe 
the ACCESS MODE IS SEQUENTIAL; i.e., we are reading the indexed file 
from start to finish in order of the record key. 

The Procedure Division of Figure 12.6 opens the indexed file as an in- 
put file. (It was an output file in the previous program when it was created.) 
Lines 440 and 450 contain an initial READ statement, after which WRITE- 
INDEXED-RECORD is performed until the file is exhausted. Note that the 
last statement of the performed routine is another READ statement, which 
corresponds to the structure followed throughout the book. 

The reader should attempt to compile and run the program of Figure 
12.6, and obtain output corresponding to Figure 12.7. Observe the message 
COBOL STOP RUN AT: 0020 IN INDEXPRT. The 0020 is a reference to a 
hexadecimal address 0020 which corresponds to COBOL line 490 in Figure 
12.6. Note also the five records that appear in Figure 12.7 correspond to the 
data embedded in Figure 12.5. 

Given a basic understanding of indexed files and how these capabilities are 
implemented in COBOL, we return to the maintenance requirements of the 
update program. 

The desired result of the nonsequential maintenance program to be de- 
veloped in this chapter is virtually identical to that of the sequential main- 
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TRS-80 Model 
SOURCE FILE: 



II COBOL (RM/ COBOL 1. 
INDEXPRT 



3B) 



7/ 2/Sl 19.45. 12 
OPTION LIST: T L=l 



PAGE 



LINE DEBUG P6/LN A. ..B. 



3 

A 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



ID. 



>0000 

;-0000 

>0006 

J- 00 10 

>001A 



000100 

000110 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 



IDENTIFICATION DIVISION. 
PROGRAM-ID. INDEXPRT. 
AUTHOR. R GRAUER. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. TRS-80. 
OBJECT-COMPUTER. TRS-S0. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. ^ 



- SELECT statement for INDEXED-FILE 



SELECT INDEXED-FILE 




! 


ASSIGN 


TO RANDOM 


'INDEXED/DAT" 1 


ORGANIZATION IS INDEXED 




ACCESS 


MODE IS SEQUENTIAL 




RECORD 


KEY IS NDX 


-SOC-SEC- 


-NUMBER. 



DATA DIVISION. 

FILE SECTION. 

FD INDEXED-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 50 CHARACTERS 

DATA RECORD IS INDEXED-RECORD. 

INDEX ED- RE CORD. 

05 NDX-SOC-SEC-NUMBER 

05 REST-OF- INDEXED-RECORD 



01 



WORKING-STORAGE SECTION. 
01 PROGRAM-SWITCHES. 

05 END-OF-INDEXED-FILE-SWITCH 



PIC X(9). 
PIC X(41 ), 



PIC X(3) 



VALUE SPACES. 



INDEXED-FILE is an input file 



PROCEDURE DIVISION. 
MAINLINE. 

I OPEN INPUT INDEXED-FTLEn -"^ 
READ INDEXED-FILE 

AT END MOVE "YES" TO END-OF-INDEXED-FILE-SWITCH. 
PERFORM WRITE-INDEXED-RECORD 

UNTIL END-OF-INDEXED-FILE-SWITCH = "YES". 
CLOSE INDEXED-FILE. 



>0020 000490 



!-0022 
>0022 
>0026 



000500 
000510 
000520 
000530 
000540 
ZZZZZZ 



STOP RUN. ^^^QQ2o is machine address where program stops 

/INDEXED-FILE is accessed sequentially 



WRITE-INDEXED-RECORD. 

DISPLAY INDEXED-RECORD 



READ INDEXED-FILE 

AT END MOVE "YES" TO END-OF-INDEXED-FILE-SWITCH. 



END PROGRAM. 



*#* END OF FILE *** 



FIGURE 12.6 Program to print an indexed file 



tenance program from Chapter 11. The difference is in the access method 
and number of files. The sequential program used two distinct master files, 
an old and a new, in addition to the transaction file. Every record in the old 
master had to be rewritten to the new master regardless of whether it 
changed. The nonsequential program will use a single master file, represent- 
ing both the old and the new master. Records that change are rewritten, 
whereas nothing will be done to records remaining the same. 

The logic of the sequential update was driven by comparing the social 
security numbers of the current old master and transaction records, as de- 
picted in the pseudocode of Figure 11.4. The nonsequential update will be 
driven solely by the transaction file. An incoming transaction is read and an 
attempt made to match the transaction social security number with that of 
an existing record in the master file. A match on a correction, deletion, or 
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Command to execute the compiled program 

TRSDOS READY / 
IRUNCOBOL INDEXF-m] 

TF'iB-BB Model 11 COB.OL Runtime (RM/COBOL, ver 1 . 3B ) 

Copyright 1980 hv Tandy Corp. LicssriS-sd from Ryan-McFar 1 and Corp. 



lllinUlSMrTH 
222222222J0NES 
333333333BAKER 
444444444MIL.GRUM 
555555555 CRAHFOFTO 
I COBOL STOP RUN "ATj 
TRSDOS READY 



ATLB 1 05 A 1 800007B 1 000000000 
CH I 0404E23000038 1 200000930 
BOS0306P 1 95000 1 82 1 8000 1 280 
DET0207G28000048 1 2400004S0 
WAB0305E30000058 1 2500011 79 
0020 IN INDEXPi 



/ 



Indexed file contains 
five records 



^Indicates the machine language address 
of the last executed statement 



FIGURE 12.7 Commands and output to execute print program 



salary update indicates that an existing record will be rewritten. A match on 
an addition implies an error due to a duplicate add. 

If the transaction social security number is not found in the master 
file, and the transaction code is an add, a new record will be added to the 
master file. No match on a correction, deletion, or salary update indicates 
the transaction social security number was miscopied. Processing will cease 
when the transaction file is empty. The pseudocode for a nonsequential up- 
date is depicted in Figure 12.8. 

Open files 

Read transaction file 

PERFORM until no more transactions 

Move transaction social security number to record key 
Read indexed file 
r I F transaction record does not exist 

r IF addition— add record to indexed file 
ELSE write error "No match" 
ENDIF 
ELSE IF transaction record does exist 
[-IF addition— write error "Duplicate Record" 
ELSE IF correction— change fields 
ELSE IF deletion-delete record 
ELSE IF update-do salary update 
L- ENDIF 
ENDIF 
Read transaction file 
ENDPERFORM 
Close files 
Stop run 



L 



FIGURE 12.8 Pseudocode for nonsequential update 

Figure 12.9 contains a hierarchy chart for the nonsequential update. 
As was stated earlier, the purpose of the hierarchy chart is to show the 
function of each routine in a program and the relationship among functions. 
It is not intended to show decision-making logic, which is the function of 
pseudocode. 

The reader should observe that many of the module names found in 
Figure 12.9 also appeared in Figure 11.6, the hierarchy chart for sequential 
maintenance. PROCESS-MATCHING-IDS calls one of four lower level rou- 
tines with identical functions to those of the sequential update. Note well, 
however, the presence of the module COPY -OLD-RECORD in Figure 11.5 
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UPDATE 

MASTER 

FILE 






























PROCESS 

TRANSACTIONS 




READ 

TRANSACTION 

FILE 


































CHECK 

MISSING 
TRANSACTION 




PROCESS 

MATCHING 

IDS 




READ 

TRANSACTION 

FILE 










































WRITE 
DUPLICATE 
ADD ERROR 




UPDATE 

EMPLOYEE 

SALARY 




CORRECT 

INDEX 
RECORD 




DELETE 

INDEX 

RECORD 



FIGURE 12.9 Hierarchy chart for nonsequential update 



and its absence in Figure 12.9. This is because existing records in a sequen- 
tial update must be copied to the new master whether or not they change. A 
nonsequential update, however, utilizes a single master file and rewrites only 
those records that actually change; it does not copy existing records with no 
activity, and hence there is no need for a COPY-OLD-RECORD routine. The 
COMPARE-IDS module is also missing from Figure 12.9, because a nonse- 
quential update is driven by the transaction fUe rather than the relationship 
between the old master and transaction files. 



UPDATING AN 
INDEXED FILE 



The logic for nonsequential maintenance has been adequately detailed in the 
pseudocode of Figure 12.8, and the necessary COBOL has been discussed. 
Hence, we are ready to develop the program itself. Although the arguments 
for top down development and testing presented in Chapter 11 apply equally 
well in this chapter, we will not repeat that discussion. Accordingly, we pro- 
ceed to the completed program. 

Figure 12.10 illustrates the program to update an indexed file. The 
SELECT statement contains the FILE STATUS clause (line 290) which is 
used in conjunction with DECLARATIVES. The FILE STATUS entry desig- 
nates a two-byte area, WS-FILE-STATUS-BYTES, which is defined in 
Working-Storage (line 840). The latter can be interrogated in DECLARA- 
TIVES, or anywhere else in the program, to monitor the result of I/O oper- 
ations to INDEXED-FILE. 

The indexed file is opened as I-O in Hne 980. This implies that the file 
will be read from, and written to, in the same program; i.e., it is an input/ 
output file. Consequently, the nonsequential update contains one less file 
(three SELECT statements rather than four) than the sequential update 
of Figure 11.8. 

The READ statement for the indexed file uses the INVALID KEY 
clause, lines 1150 and 1160. It is preceded by a MOVE statement in line 
1130 which places the incoming social security number into the field desig- 
nated as RECORD KEY in the SELECT statement. Note that the INVALID 
KEY condition, if raised, turns on a switch, hence the same switch is turned 
off immediately prior to the READ in line 1140. 
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000100 
000110 
000120 
000130 
000140 

000150 

000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
0002B0 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
0003S0 
000390 
000400 
000410 
000420' 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000600 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 



I DENT I F I CAT I ON DIVISION. 
PROGRAM- ID. I NDE X UPD . 
AUTHOR. R GRAUER. 



ENVIRONMENT DIVISION. 
CONF I GURAT I ON SE CT I ON . 
SOURCE -COMPUTER. 
OBJECT-COMPUTER. 



TRS-30. 
TRS-S0. 



INPUT-OUTPUT 
FILE-CONTROL 



SECTION. 



/Same file as for sequential update 



SELECT TRANSACTION-FILE 

ASSIGN TO INPUT "TRANS/DAT' 



SELECT INDEXED-FILE 

ASSIGN TO RANDOM "INDEXED/DAT" 
ORGANIZATION IS INDEXED„---IWDEXED-FILE will be 
[ACCESS MODE IS RANDOM t -""'^ acessed nonsequentially 

RECORD KEY IS NDX-SOC-SEC-NUMBER 



FILE STATUS IS WS-FILE-STATUS-BYTES.I 



SELECT DELETED-RECC 
ASSIGN TO OUTPU 




D-FILE 
"DELETED /DAT" , 



a two byte field 
Working-Storage 



DATA D I V I S I ON . ' References 

FILE SECTION. defined in 

FD TRANSACTION-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 51 CHARACTERS 

DATA RECORD IS TRANS-RECORD. 
01 TRANS-RECORD. 

05 TRANS-BOC-SEC-NUMBER PIC X(9). 

05 TRANS-LAST-NAME PIC Xi:i5). 

05 TRANS-LOC-CODE PIC X(3). 

05 TRANS-TITLE-CODE PIC 999, 

05 TRANS-EDUCATION-CODE PIC 9. 

05 TRANS-PERFORMANCE-CODE PIC X. 

05 TRANS-SALARY PIC 9(5). 

05 TRANS-SALARY-MONTH PIC 99. 

05 TRANS-SALARY-YEAR PIC 99. 

05 FILLER PIC X(9). 

05 TRANS-CODE PIC X. 

83 ADDITION VALUE "A". 

88 CORRECTION VALUE »C". 

88 DELETION VALUE "D", 

88 SALARY-UPDATE VALUE "U". 

FD INDEXED-FILE 

LABEI.^ RECORDS ARE STANDARD 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS INDEXED-RECORD. 
01 INDEXED-RECORD. 

05 NDX-SOC-SEC-NUMBER 

05 NDX-LAST-NAME 

05 NDX-LOC-CODE 

05 NDX-TITLE-CODE 

05 NDX -EDUCAT I ON- CODE 

05 NDX-PERFORMANCE-CODE 

05 NDX-SALARY-DATA OCCURS 2 

10 NDX -SALARY 

10 NDX-SALARY-MONTH 

10 NDX -SALARY-YEAR 

FD DELETED-RE CORD-FILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 50 CHARACTERS 

DATA RECORD IE DELETED-MABTER-RECORD. 

01 DELETED-MASTER-RECORD PIC X(50), 

FIGURE 12.10 Nonsequential update 



PIC 


X(9). 


PIC 


XdS) 


PIC 


X(3) . 


PIC 


999. 


PIC 


9. 


PIC 


X. 


TIMES 




PIC 


9(5). 


PIC 


99. 


PIC 


99. 
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000790 

000800 

000810 

000820 

000830 

000840 

000850 

000860 

000870 

000880 

000890 

000900 

000910 

000920 

000930 

000940 

000950] 

000960 

000970 

000980 

000990 

001000 

001010 

001020 

001030 

001040 

001050 

001060 

001070 

001080 

001090 

001100 

001110 

001120 

001130 

001140 

001150 

001160 



001170 
00 1 1 80 
001190 
001200 

001210 

001220 
001230 
001240 
001250 
001260 
001270 
0012S0 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 



WORKING-STORAGE SECTION 

01 PROGRAM-SWITCHES 

05 TRANSACT I ONS^EMA I N-SW ITCH PIC X(3) 
05 RECORD-NOTXFOUND-SWITCH PIC X(3) 



Defined in SELECT statement of IIMDEXED-FILE 



VALUE SPACES. 
VALUE SPACES. 



51 WS-FILE-BTATUS-BYTES 



PIC XX. 



PROCEDURE DIVISION. 



DECLARATIVES. 



-DECLARATIVES appears at beginning of PROCEDURE DIVISION 



I-0-ERROR SECTION. 

USE AFTER STANDARD ERROR PROCEDURE ON INDEXED-FILE. 
HANDLE-I-O-ERROR. 

DISPLAY "I/O ERROR OCCURRED". 

DISPLAY WS-FILE-STATUS-BYTEB. 
END DECLARATIVES. 

Use of section name 



UPDATE-INDEXED-FILE SECTION 
010-UPDATE-MASTER-FILE. 

OPEN INPUT TRANSACTION-FIL 




IT-O INDEXED-FILEh 
OUTPUT DELETED-RECORD-FILE. 

PERFORM 190-READ-TRANSACTION-FILE. 



INDEXED-FILE is both input and output 



PERFORM 020-PROCESS-TRANBACTIONB 

UNTIL TRANSACT lONS-REMAIN-SWXTCH 



"NO" 



CLOSE TRANSACTION-FILE 
INDEXED-FILE 
DELETED- RE CORD-FILE. 

STOP RUN. 

020-PROCESS-TRANBACT I ONS . 



"Nonsequential update is driven by the transaction file 



^Transaction key is moved to record key 



I MOVE TRANS-SOC-SEC-NUMBER TO MDX-SOC-SEC-NUMBER.I 
MOVE "NO" TO RECORD-NOT-FOUND-SWITCH. 



READ INDEXED-FILE 

INVALID KEY MOVE "YES" TO RECORD-NOT-FOUND-SWITCH, 



^ INVALID KEY clause implies a random read 

IF RFCORD-iMOT-FOUND-SWITCH == "YES" 

PERFORM 100-CHeCK-MISSlNG-TRANSACl luN 
ELSE 

PERFORM 060-PROCESS-MATCHING IDS. 



PERFORM 1 90- READ- TRANSACT I ON- F I l.E . 



060-PROCESS-MATCHlNfa- IDS. ^ ^^'* statement of performed routine 

TF ADD I T I ON reads the transaction file 

PERFORM 070- WRITE-DUPL I CATE- ADD- ERROR 
ELSE 

IF SALARY- UPDATE 

PERFORM 075--UPDATE-EMPLOYEE-SALARY 
ELSE 

IF CORRECTION 

PERFORM 080- CORRECT- NDX-RECORD 
ELSE 

IF DELETION 

PERFORM 090 -DEL ETE -NDX-RECORD. 



070- WRI TE-DUPL I CATE-ADD-ERROR. 

DISPLAY "ERROR - RECORD ALREADY EXISTS 
TRANS-SOC-SEC-NUMBER. 



IN MASTER FILE: 



075-UPDATE-EMPLOYEE- SALARY. 

IF NDX-SALARY (1) = TRANS-SALARY 

DISPLAY "ERROR - SALARY UPDATE ALREADY DONE: " 
TRANS-SOC-SEC-NUMBER 
ELSE 

MOVE NDX-SALARY-DATA (1) TO NDX-BALARY-DATA (2) 
MOVE TRANS-SALARY TO NDX-SALARY ( 1 ) 



FIGURE 12.10 Continued 
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001A80 MOVE TRANS SALARY-MONTH TO NDX-SAL ARY-MONTH (1) 

001490 MOVE TRANS--5AL.ARY-YEAR TO NDX-BALARY--YEAR (1) 

001500 I REWRITE INDEXED-RECORD. 

001510 

001520 080- CORRECT-WDX-RECORD. 7'-'*® °* REWRITE statement 

001530 IF TRANS-LAST-NAME NOT = SPACES 

001540 MOVE TRANS-LAST-NAME TO NDX-L AJ/1 - NAME. 

001550 IF TRANS-LOC-CODE NOT == SPACES 

001560 MOVE TRANS-LOC-CODE TO NDX-LOjZli-CODE. 

001570 IF TRANS-riTLE-CODE NOT = SPACES/ 

001580 MOVE TRANS-TITLE-CODE TO NDx/-TITLE-CODE. 

001590 IF TRANS-EDUCATION-CODE NOT = SPACES 

001600 MOVE TRANS- EDUCATION-CODE JO NDX-EDUCATION-CODE 

001610 IF TRANS-PERFORMANCE -CODE NOt/= SPACE!; 

001620 MOVE TRANS-PERF0RMANCE-C(7r)E TO NDX-PERFORMANCE-CODE. 

001630 IF TRANS-SALARY NOT = SPACES 

001640 MOVE TRANS-SALARY TO NDX-BALARY (1), 

001650 IF TRANS-SALARY-MONTH NOT / SPACES 

001660 MOVE TRANS-SALARY-MONW-l TO NDX-SALARY-MONTH (1), 

001670 IF TRANS-SALARY-YEAR NOT /= SPACES 

001680 MOVE TRANS-SAL ARY-YE/iR TO NDX-BALARY-YEAR (1>, 

001690 



001700 REWRITE INDEXED-RECORD. 



001710 

001720 090-DELETE-NDX-RECORD. 

001730 MOVE INDEXED-RECORD TO DELETED-MASTER-RECORD. 

001740 WRITE DELETED-MAS TER-RECORD. 

00 1 750 IDELETE INDEXED-"f"ILE .1 Inactive records are physically 

001760 removed from INDEXED-FILE 

00 1 770 1 00- CHE CK-M I SB I NG T RANSACT I ON . 

001780 IF ADDITION 

0017^0 MOVE TRANS-SOC-SEC-NUMBER TO NDX-SOC-SE C-NUME5bR 

001800 MOVE TRANS-LAST-NAME TO NDX-LAST-NAME 

001 B10 MOVE TRANS-LOC-CODE TO NDX-LOC-CODE 

001870 MOVE fRANS-TITLE-CODE TO NDX-TI TLE-CODE 

0018-,50 MOVE TRANS-EDUCATION-CODE TO NDX-EDUCATIoN-CoDE 

001840 MOVE TRANS-PERFORMANCE-CODE TO NDX-PERFORMANCE-CODE 

001850 MOVE TRANS- SALARY TO NDX-SALARY (1) 

00)860 MOVE TRANS -SALARY-MONTH TO NDX-SALARY-MONTH <1) 

001870 MOVE TRANS-SALARY- YEAR TO NDX-SALARY- YEAR (1) 

001880 MOVE ZEROS fO NDX-SALARY -DATA \2) 

001890 WRITE INDEXED-RECORD 

001900 ELSE ,_,.^ 

001910 DISPLAY "ERROR - NO CORRESPONDING MASTER RECORD hvh 

001920 TRANS-SOC-SEC-NUMBER. 

001930 

00 1 940 1 90- ■ RE AD-T RANSACT I ON-F 1 L,E . 

00 1 950 READ TRANSACT I ON-F I L-E 

AT END MOVE "NO" TO TRANSACTIONS-REMAIN-SWITCH. 



001960 



FIGURE 12.10 Continued 



The program of Figure 12.10 is driven solely by the transaction file; 
i.e., one processes transactions until the transaction file is empty (lines 1030 
and 1040). This is in contrast to the sequential update program of Figure 
11.8 which was driven by the relationship of the old master and the transac- 
tion files. 

The nonsequential update takes a record from the transaction file, and 
does a random read to determine if the transaction social security number 
exists on the indexed file (lines 1150-1160). If the record is not there, 
CHECK-MISSING-TRANSACTION will be performed; otherwise, if the 
transaction is present, PROCESS-MATCHING-IDS is executed. 

The details of the lower level routines are similar to those of the se- 
quential update. There are, however, two significant differences. First, 
records slated for deletion must be explicitly removed from the indexed 



248 



Nonsequential File Maintenance 249 

file through the DELETE verb (line 1750). This is in contrast to the sequen- 
tial update which implicitly deletes records from the old master by not 
copying them to the new. Second, existing records which are changed are 
rewritten to the indexed file, lines 1500 and 1700. The sequential update, 
on the other hand, writes these records for the first time to the new master 
file. 

Figure 12.10 also illustrates use of DECLARATIVES (lines 870-930). 
The word DECLARATIVES must appear immediately after the Procedure 
Division header. The end of DECLARATIVES is marked by the line END 
DECLARATIVES (Mne 930), which appears before the rest of the Pro- 
cedure Division. 

DECLARATIVES itself is divided into one or more sections; e.g., line 
880. Line 890 contains a USE AFTER clause indicating that particular 
section is to be executed after the standard system error procedure for 
INDEXED-FILE. The particular example is rather trivial in that it merely 
displays the value of the FILE STATUS bytes; more complex examples 
could interrogate this field and take additional action based on specific 
values. 

Finally, observe that the nondeclarative portion of the Procedure 
Division is also divided into sections, albeit a single section (line 950). 
This is because of a COBOL requirement which says that once sections 
are introduced in a program; e.g., in DECLARATIVES, they must be used 
throughout. 

The program of Figure 12.10 was tested with the identical data as 
the sequential update of Chapter 11, and produced the same results as 
Figure 11.9. (The master files are physically different, but the conceptual 
output is identical.) 



SUMMARY Indexed files were introduced in this chapter as a new means of file orga- 
nization. The method is quite powerful and permits both sequential and 
nonsequential access. 

The chapter began with a conceptual discussion of indexed files and 
the associated diskette organization. The necessary COBOL was introduced 
and three complete programs for creating, printing, and updating an indexed 
file were developed. The indexed file update had parallel requirements to the 
program from Chapter 1 1 and was documented with the aid of pseudocode 
and a hierarchy chart. 



TRUE/FALSE 

1. An active file is best updated sequentially. 

2. An inactive file is best updated nonsequentially. 

3. Sequential maintenance copies every record to the new master even if it doesn't 
change. 

4. Nonsequential maintenance writes only those records which change to the new 
master. 

5. Inactive indexed records are deleted through the REMOVE verb. 

6. Incoming transactions must be in sequential order, even if processed nonsequen- 
tially. 

7. Records in an indexed file need not have unique keys. 

8. Records in an indexed file can be processed sequentially. 
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9. The RECORD KEY clause references a data name which is defined in Working- 
Storage. 
10. New records are added to an indexed file with the ADD verb. 



EXERCISES 

Debugging: Figure 12.11 contains test data and invalid output produced by the program 
of Figure 12.12. The intended results should be the same as indicated by Figure 11.9. 
Find and correct all errors. 



Salary update was not done 



1 0B(a0000BBLACKBURN 



;50000981 



333333333BAKER 

400000000WICKS 

44442f4444MILGR0M 

555555555CRAWF0RD 

777777777BAMUEL 



lUllllllSMITH 

222222222J0NES 

333333333BAKER 

444444444MILGR0M 

555555555CRAWF0RD 



DET AB 12B1 C 

CHI02©6A350000781 A 

DET!32'07G280000481 240000480A 

D 
rL0407E300000881 A 

-Performance correction was not done 



a) Transaction File 



ATL0 1 05 A 1 8000078 1 000000000 
CH I 0404E23000038 1 200000980 
BOS0306P1 95000 18218000 1280 
DET0207G28000048 1 240000480 
WAS0305E300000581250001 179 



b) Old Master (Indexed File) 



nillllUSMITH 
222222222J0NES 
333333333BAKER 
400000000WICKS 
444444444MILGR0H 



ATL0105A18000078 
CHI0404E23000038 
DET0306P19500128 
CHI0206A35000078 
DET0207G2B000048 



1 000000000 
1200000980 
1180001280 

1000000000 

1240000480 
UIAS0305E30000058125 0001 1791 



555555555CRAWF0RD 



777777777SAMUEL 



ATL0407E300000B8 1 000000000 
-Record should have been deleted 
c) New Master (Indexed File) 



555555555CRAWF0RD WAS0305E300000581250001 179 

d) Deleted File 



ERROR - NO CORRESPONDING MASTER RECORD FOR 100000000 
ERROR - RECORD ALREADY EXISTS IN MASTER FILE: 444444444, 
[ERROR -"" RECORD ^^ READY EXISTS IN MASTER FILE: 777777777] 



^Duplicate add message should not appear 
e) Error Message 

FIGURE 12.11 Incorrect output of nonsequential update, (a) Transaction 
file, (b) Old master (indexed file), (c) New master (indexed file), (d) 
Deleted file, (e) Error message. 



000100 

000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000330 
000390 
000400 
0004 1 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
0005 1 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
0007 10 
000720 
000730 
000740 
000750 
000760 
000 770 
000780 
000790 



I DENT I F I CAT I ON D I V 1 3 1 ON . 
PROGRAM- ID. EI NDE X UP . 
AUTHOR. R QRAUER. 

ENVIRONMENT DIVISION. 

CONF I GU RAT I ON SE CT 1 ON . 
SOURCE-COMPUTER. TRS- 
OB JE CT-COMPUT ER . T RS- 



80. 

80. 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELE CT T RANBACT I ON-F I LE 

ASSIGN TO INPUT "TRANS/DAT". 

SELECT INDEXED-FILE 

ASSIGN TO RANDOM "INDEXED/DAT" 

ORGANIZATION IS INDEXED 

ACCESS MODE IS RANDOM 

RECORD KEY IS NDX-SOC-SEC-NUMBER 

FILE STATUS IS WS-FILE-STATUS-BYTES. 

SELECT DELETED-RECORD-F I LE 

ASSIGN TO OUTPUT "DELETED/DAT". 



DATA DIVISION. 

FILE SECTION. 

FD TRANSACTION-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 51 CHARACTERS 
DATA RECORD IS TRANS-RECORD. 

01 TRANS-RECORD. 

05 TRANS-SOC-SEC-NUMBER 

05 TRANS-LAST-NAME 

05 TRAN5-L0C-C0DE 

05 TRANS-TITLE-CODE 

05 TRANS-EDUCATION-CODE 

05 TRANS-PERFORMANCE-CODE 

05 TRANS-SALARY 

05 TRANS SALARY-MONTH 

05 TRANS-SALARY-YEAR 

05 FILLER 

05 TRANS-CODE 

88 ADDITION 

88 CORRECTION 

80 DELETION 

88 SALARY-UPDATE 

FD INDEXED-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 50 CHARACTERS 
DATA RECORD IS INDEXED-RECORD. 
01 INDEXED-RECORD. 

05 NDX-SOC-SEC-NUMBER 
05 NDX-LAST-NAME 
05 NDX-LOC-CODE 
05 NDX-TITLE-CODE 
05 NDX-EDUCATION-CODE 
05 NDX-PERFORMANCE-CODE 
05 NDX-SALARY-DATA OCCURS 2 
10 NDX-SALARY 
10 NDX-SALARY-MONTH 
IB NDX-SALARY-YEAR 



PIC X<9). 
PIC X( 15) . 
PIC X(3). 
PIC 999. 
PIC 9. 
PIC X. 
PIC 9<5). 
PIC 99. 
PIC 99. 
PIC X(9) . 
PIC X. 

VALUE 

VALUE 

VALUE 

VALUE 



A" , 
C" , 
D", 
X", 



PIC 


X(9). 


PIC 


X(15). 


PIC 


X(3). 


PIC 


999. 


PIC 


9. 


PIC 


X. 


TIMES. 




PIC 


9(5). 


PIC 


99. 


PIC 


99. 



FD DELETED-RECORD-F ILE 

LABEL RECORDS ARE STANDARD 

RECORD CONTAINS 50 CHARACTERS 

DATA RECORD IS DELETED-MASTER-RECORD. 

01 DELETED-MASTER-RECORD PIC X(50). 

WORK I NG-STORAGE SE CT I ON . 



FIGURE 12.12 Invalid nonsequential update program 
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000800 
000810 
000320 
000830 
000840 
000850 
000860 
000370 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001030 
001040 
001050 
001060 

001070 

001080 
001090 
001100 
001 110 
001120 
001125 
001130 
001140 

001150 

00U60 
001170 
001180 
001190 
001200 
001230 
001240 
001250 
001260 
001270 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 
001370 
001380 
001390 
001400 
001410 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 

001500 

001510 
001520 
001530 



01 PROGRAM-SWITCHES. 

05 TRANBACTIONS-REMAIN-BWITCH PIC X(3) 
05 RECORD-NOT-FOUND-SWITCH PIC X<3) 



VALUE SPACES. 
VALUE SPACES. 



01 WS-FILE-STATUB-BYTEB 



PIC XX. 



PROCEDURE DIVISION. 
DECLARATIVES. 
I-0-ERROR SECTION. 

USE AFTER STANDARD ERROR PROCEDURE ON INDEXED-FILE. 
HANDLE- I -0-ERROR. 

DISPLAY "I/O ERROR OCCURRED". 

DISPLAY WB-FILE-BTATUB-BYTES. 
END DECLARATIVES. 

UPDATE- INDEXED-FILE SECTION. 
1 0-UPDATE-MASTER-F I LE . 

OPEN INPUT TRANSACT ION-FILE 
I-O INDEXED-FILE 
OUTPUT DELETED-RECORD-F I LE . 

PERFORM 020-PROCESS-TRANBACTIONS 

UNTIL TRANSACTIONS-REMAIN-SWITCH = "NO". 

CLOSE T RANSACT I ON-F I L E 
INDEXED-FILE 
DELETED- RE CORD-F I LE . 

STOP RUN. 

020- PROCESS-TRANSACT I ONB. 

PERFORM 1 90-READ-TRANSACT X ON-F I LE . 

MOVE TRANB-SOC-SEC-NUMBER TO NDX-SOC-SEC-NUMBER. 

MOVE "NO" TO RECORD-NOT-FOUND-SWITCH. 

READ I NDEXED-F I LE 

INVALID KEY MOVE "YES" TO RECORD-NOT-FOUND-SWITCH. 
IF RECORD-NOT-FOUND-SWITCH = "YES" 

PERFORM 100-CHECK-MISSIN6-TRANSACTION 
ELSE 

PERFORM 060-PROCEBS-MATCHING-IDS. 

060- PROCESB-MATCH I NG- I DB . 

IF ADDITION 

PERFORM 070-WRI TE-DUPL I CATE- ADD-ERROR 

ELBE 

IF SALARY-UPDATE 

PERFORM 075-UPDATE-EMPLOYEE-SALARY 
ELSE 

IF CORRECTION 

PERFORM 0B0-CORRECT-NDX-RECORD 
ELSE 

IF DELETION 

PERFORM 090~DELETE-NDX-RECORD. 

070-WRITE-DUPLICATE-ADD-ERROR. 

DISPLAY "ERROR - RECORD ALREADY EXISTS IN MASTER FILE: 
TRANS-SOC-SEC-NUMBER. 

075-UPDATE-EMPLOYEE-SALARY. 

IF NDX-SALARY <1) = TRANS-SALARY 

DISPLAY "ERROR - SALARY UPDATE ALREADY DONE: » 
TRANS-SOC-SEC-NUMBER 

ELSE 

MOVE NDX-SALARY-DATA (1) TO NDX-SALARY-DATA (2) 
MOVE TRANS-SALARY TO NDX-SALARY (1) 
MOVE TRANB-SALARY-MONTH TO NDX-SALARY-MONTH ( 1 ) 
MOVE TRANS-SALARY-YEAR TO NDX-SALARY-YEAR ( 1 ) 
REWRITE INDEXED-RECORD. 

080-CORRECT~NDX-RECORD. 

IF TRANS-LABT-NAME NOT = SPACES 

FIGURE 12.12 Continued 
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001540 MOVE TRANS-LAST-NAME TO NDX-LAST~NAME. 

001550 IF TRANS-LOC-CODE NOT = SPACES 

001560 MOVE TRANB-LOC-CODE TO NDX-LOC-CODE. 

001570 IF TRANS-TITLE-CODE NOT = SPACES 

001580 MOVE TRANS-TITLE-CODE TO NDX-TITLE-CODE. 

001590 IF TRANS-EDUCATION-CODE NOT = SPACES 

001600 MOVE TRANS-EDUCATION-CODE TO NDX-EDUCATION-CODE 

001610 IF TRANS-PERFORMANCE-CODE NOT = SPACES 

001620 MOVE TRANS-PERFORMANCE-CODE TO NDX-PERFORMANCE-CODE. 

001630 IF TRANS-SALARY NOT = SPACES 

001640 MOVE TRANS-SALARY TO NDX-SALARY (1). 

001650 IF TRANS-SALARY-MONTH NOT = SPACES 

001660 MOVE TRANS-SALARY-MONTH TO NDX-SALARY-MONTH (1). 

001670 IF TRANS-SALARY-YEAR NOT = SPACES 

001680 MOVE TRANS-SALARY-YEAR TO NDX-SALARY-YEAR (1). 

001690 

001700 REWRITE INDEXED-RECORD. 

001710 

001720 090-DELETE-NDX-RECORD. 

001730 MOVE INDEXED-RECORD TO DELETED-MASTER-RECORD. 

001740 WRITE DELETED-MASTER-RECORD. 

001760 

001770 100-CHECK-MISBIN6-TRANSACTION. 

001780 IF ADDITION 

001790 MOVE TRANS-SOC-SEC-NUMBER TO NDX-50C-SEC-NUMBER 

001300 MOVE TRANS-LAST-NAME TO NDX-LAST-NAME 

001810 MOVE TRANS-LOC-CODE TO NDX-LOC-CODE 

001820 MOVE TRANS-TITLE- CODE TO NDX-TITLE-CODE 

001830 MOVE TRANS-EDUCATION-CODE TO NDX-EDUCATION-CODE 

001840 MOVE TRANS-PERFORMANCE-CODE TO NDX-PERFORMANCE-CODE 

001850 MOVE TRANS-SALARY TO NDX-SALARY (1) 

001860 MOVE TRANS-SALARY-MONTH TO NDX-SALARY-MONTH (1) 

001870 MOVE TRANS-SALARY-YEAR TO NDX-SALARY-YEAR (1) 

001880 MOVE ZEROS TO NDX-SALARY-DATA (2) 

001890 WRITE INDEXED-RECORD 

001900 ELSE 

001910 DISPLAY "ERROR NO CORRESPONDING MASTER RECORD FOR 

001920 TRANS-SOC-SEC-NUMBER. 

001930 

001 940 1 90-READ-TRANSACT I ON-F I LE . 

001950 READ TRANSACTION-FILE 

001960 AT END MOVE "NO" TO TRANSACTIONS-REMAIN-SWITCH. 

FIGURE 12.12 Continued 
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ANSWERS TO 

TRUE/FALSE 

AND EXERCISES 



CHAPTER 1 



True/False 



1. True. 

2. False. They must be in sequence; Identification, Environment, Data, and Pro- 
cedure. 

3. False. They may contain any character, including reserved words, data names, 
paragraph names, etc. 

4. False. Numeric literals may contain only numbers, a sign, or implied decimal 
point. 

5. True. 

6. True. 

7. True. 

8. False. Data names may, and frequently do, contain hyphens. 

9. False. It terminates the IF and is of critical importance. 

10. False. Reserved words are restricted to a specific context, and may not be 
used elsewhere. 



Exercises 



1. (a) IDENTIFICATION, AUTHOR, CONFIGURATION, SECTION, DIVI- 

SION, WORKING-STORAGE, etc. (See Appendix B for a complete list.) 

(b) TEST-1, TEST-2, TEST-3, TOTAL-SCORE, AVERAGE, THE-BOSS, 
GET-INPUT, DO-PROCESSING, WRITE-OUTPUT 

(c) "ENTER GRADE ON TEST 1" 

"YOUR AVERAGE GRADE ON 3 TESTS = " 
"YOU SHOULD STUDY HARDER" 

(d) 3 (in line 490), 89 (in line 540), and 70 (in line 570). 

(e) > and < in lines 540 and 570, respectively. 

(f) 77 

(g) PIC 999 

(h) ACCEPT, DISPLAY, ADD, DIVIDE, PERFORM, IF, and STOP RUN. 

2. (a) Change the numeric literal to 60 in line 570. 

(b) Delete lines 540 and 550. 

(c) Add a DISPLAY and ACCEPT statement for TEST-4 after line 450. In- 
clude TEST-4 in the ADD statement of line 480 and change 3 to 4 in the 
DIVIDE statement of line 490. Finally, do not forget to define the data 
name TEST-4 as a 77 level entry in Working-Storage. 

3. (a) 567 VaUd numeric literal. 

(b) 567. Invalid: unless decimal point is intended as period 

at end of sentence. 

(c) -567 Valid numeric literal. 

(d) -1-567 Valid numeric literal. 

(e) FIVE-SIX-SEVEN Invalid: non-numeric literals require quotes. 

(f) "567." Valid non-numeric literal. 

(g) "FIVE SIX SEVEN" Valid non-numeric literal. 
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(h) "-567." Valid non-numeric literal, 

(i) 567- Invalid: a numeric literal cannot end with a sign, 

(j) 567+ Invalid: a numeric literal cannot end with a sign, 

(k) "567+" Valid non-numeric literal. 

4. The following are invalid data names: 

(b) DATE (Reserved word.) 

(c) 12345 (Does not begin with a letter.) 

(d) ONE TWO THREE (Spaces are not permitted.) 

(f ) IDENTIFICATION (Reserved word.) 

(g) HOURS- (May not end on hyphen.) 
(i ) GROSS-PAY-IN-$ ($ not allowed.) 

Note: IDENTIFICATION-DIVISION in part (e) is permitted as a data name 
although it consists of two reserved words, IDENTIFICATION and 
DIVISION. 



CHAPTER 2 



True/False 



1. True. 

2. False. A file is a set of records. 

3. False. The computer does exactly what it is told to do. 

4. False. A record contains one or more fields. 

5. False. Indentation, capitalization, and so on are at programmer discretion. 

6. True. 

7. True. 

8. True. 

9. False. A file name typically appears in a SELECT, FD, OPEN, CLOSE, and 
READ statement. 

10. False. It is required only when files are processed, which is usually the case. 



Exercises 



1. (a) New York is spelled several different ways in the incoming data. This can 
cause difficulty in selecting qualified records in the same fashion as the 
two spellings of programmer. Secondly, date of hire rather than years of 
service should be stored with incoming records. The latter field can be cal- 
culated from the former, 
(b) Housekeeping 
Initial read 
- Do while data remains 

If service is 4 years or more and location is New York 

Write name on report 
Else 

Do nothing 
-End Do 
Stop 



(b) continued 



f START J 



HOUSEKEEPING 



READ FIRST 
RECORD 



READ NEXT 
RECORD 



/ WRITE 
'INFORMATION/ 



^Af 




FALSE /NEW YORK\ TRUE 
.AND4 YEARS>- 



FALSE 




(c) Assuming that all spellings of New York are acceptable, Barbarlno, Hor- 
shack, and Albright qualify. Welby is in New York but fails the service 
test. Anderson, Kotter, Unger, and Madison fail the location test. 

(d) No — assuming that the input table represents all available data because in- 
formation was not collected on age or birth date. 
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TRUE 



/ WRITE / 


/ NUMBER / 


/ QUALIFIED / 


r STOP ^ 


3. (1) 


CONFIGURATION SECTION. 


(2) 


STUDENT-FILE 


(3) 


FILE SECTION. 


(4) 


80 


(5) 


FD 


(6) 


01 


(7) 


77 


(8) 


INPUT 


(9) 


CLOSE 


(10) 


PROCESS-RECORDS. 


(11) 


STUDENT-FILE 


(12) 


WS-DATA-REMAINS-SWITCH 
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CHAPTERS 



True/False 



1. False. RSCOBOL invokes the COBOL compiler. RUNCOBOL executes a com- 
piled program. 

2. True. 

3. False. One must specify the compiler option X. 

4. False. X is a conditional change and requires a confirming user response. 

5. False. It changes the first 10 occurrences of PRT irrespective of line numbers. 

6. True. 

7. False. It prints lines 100 through 300 which may be more or less than 20 lines. 

8. False. The N command is used to renumber a program; e.g., N 100,10. 

9. True. 

10. False. The utility program is PRINT. 



Exercises 



1. (a) A margin 

(b) * in column 7 

(c) A margin 

(d) B margin 

(e) A margin 

(f) A margin 

(g) A margin 
(h) B margin 
(i) B margin 
(j) B margin 
(k) B margin 
(1) A margin 
(m) B margin 

Note: The A margin is columns 8 to 11; the B margin begins in column 12. 

2. g-1 
d-2 
a-3 
b-4 
e-5 
c-6 
f-7 
i-8 

h-9 
j-10 

3. Memory Contents 

Before After 

500 600 700 ACC 500 600 700 ACC 



LOAD 500 


10 


20 


? 


? 


10 


20 


? 


10 


MULTIPLY 600 


10 


20 


? 


10 


10 


20 


? 


200 


STORE 700 


10 


20 


? 


200 


10 


20 


200 


200 
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4. The COBOL instruction: ADD ABC GIVING D, takes the value of A, adds it 
to B, adds this sum to C, and puts the result in D. Assume A, B, C, and D are 
stored in locations 100, 200, 300, and 400 respectively. The following se- 
quence of machine instructions could be generated: 



Instruction Comments 

LOAD 100 Brings A into accumulator. 

ADD 200 Adds B to A. 

ADD 300 Adds C to sum of A and B. 

STORE 400 Stores A+B+C in D. 

5. First enter the editor vsrith the command CEDIT, after seeing the TRSDOS 
READY message. Next, load the file in question, L FIRSTDAT. Delete lines 
440 and 450 to eliminate Marshal Crawford. Enter the insert mode, e.g., 
I 532,1 to establish a MOVE and corresponding WRITE for David Brown. 
Change Marion Milgrom's age by first positioning the appropriate line, e.g., 
P 520, then X/24/33/. Finally, don't forget to write the changed file, i.e., 
W FIRSTDAT. 

6. The necessary commands: 

CEDIT 

LPREAIVIBLE 

C/UNITEDS/UNITEDS/2 

B 

C/ONION/UNION/ 

D 121 

E 130 (Delete 7 characters; DDDDDDD, then return) 

I 160 

OF AMERICA 

B 

P 



True/False 



1. True. 



2. False. There are two distinct ADD statement formats, one with GIVING, the 
other with TO. 

3. True. 

4. True. 

5. True. 

6. False. It can be written with or without an ELSE. 

7. False. All statements, up to a period or ELSE, are executed. 

8. False. It is the last statement executed, but can appear anywhere in the Pro- 
cedure Division. 

9. False. A file name appears in SELECT, FD, OPEN, CLOSE, and READ state- 
ments. 

10. True. 
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1. The completed table is shown below. Hyphens indicate that a value remained 
unchanged as the result of the instruction. 



Data-name 


A 


B 


C 


D 


Value before execution: 


4 


8 


12 


1 


Value after execution of: 










ADD 1 TO D. 


- 


- 


- 


2 


ADD ABCGIVING D. 


— 


— 


— 


24 


ADD A B C TO D. 


- 


- 


- 


25 


SUBTRACT A B FROIVi C. 


- 


- 





- 


SUBTRACT A B FROM C GIVING D. 


— 


— 


— 





MULTIPLY A BY B. 


- 


32 


- 


- 


MULTIPLY B BY A. 


32 


- 


- 


- 


DIVIDE A INTO C. 


- 


- 


3 


~ 


DIVIDE C BY A GIVING B. 


- 


3 


- 


_ 


DIVIDE C BY B GIVING D. 


_ 


- 


- 


1.5 


COMPUTE D = A + B/2 * D. 


_^ 


— 


— 


8 


COMPUTE D = (A + B) / (2 * D). 


- 


- 


- 


6 


COMPUTE D = A + B/(2* D). 


~ 


- 


- 


8 


COMPUTE D = (A + B) / 2 * D. 


- 


- 


- 


6 


COMPUTE D = A + (B / 21 * D. 


— 


— 


— 


8 





Sending Field 




Picture 


Contents 


(a) 


9(6) 


123456 


(b) 


9(6) 


123456 


(c) 


9(6) 


123456 


(d) 


9(4)V99 


1 23456 


(e) 


9(4)V99 


123456 


(f) 


9(4)V99 


123456 


(g) 


9(4)V99 


123456 


(h) 


9(6) 


123456 



2. Sending Field Receiving Field 

Picture Contents 

9(6) 123456 

9(8) 00123456 

9(6) .99 123456.00 

9(6) 001234 

9(4) 1234 

$$$$$9.99 -^$1234.56 

$$$,$$9.99 -$1 ,234.56 

$$$$,$$9.99 $123,456.00 

3. i. Group items are all those without a Rcture clause; I.e., EMPLOYEE- 

RECORD, EMPLOYEE-NAME, BIRTH-DATE, EMPLOYEE-ADDRESS, 
NUMBER-AND-STREET, and CITY-STATE-ZIP. 
ii. All elementary items have a Picture clause. These are: SOC-SEC-NUMBER, 
LAST-NAME, FIRST-NAME, MIDDLE-INIT, BIRTH-MONTH, BIRTH- 
DAY, BIRTH-YEAR, HOUSE-NUMBER, STREET-NAME, CITY, STATE, 
and ZIP. 
FILLER would also be considered an elementary item. 
iii. (a) Columns 1-9 (j) Columns 43-77 

(b) Columns 10-32 (k) Columns 43-58 

(c) Columns 10-21 (1) Columns 43-48 

(d) Columns 22-31 (m) Columns 49-58 

(e) Column 32 (n) Columns 59-77 

(f) Columns 34-39 (o) Columns 59-68 

(g) Columns 34-35 (p) Columns 69-72 
(h) Columns 36-37 (q) Columns 73-77 
(i) Columns 38-39 

4. (a) Invalid: one opens a file, not a record. 

(d) Invalid: the type of file is not specified in a CLOSE statement. 

(e) Invalid: the READ statement should have an AT END clause, 
(g) Invalid: one reads a file, rather than a record. 

(i) Invalid: 2 should replace TWO. 
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(1 ) Invalid: one writes a record, rather tlian a file, 

(m) Invalid: the AT END clause is not permitted in a WRITE statement, 

(p) Invalid: either AFTER or BEFORE are required. 

5. (a) COMPUTE X = A + B + C. 

(b) COMPUTE X = (A + B * C) / 2. 

(c) COMPUTE X = ((A * B) + (C * D)) / (E * F). 

(d) COMPUTE X = (A + B) / 2 - C. 



True/False 

1. False. Blanks are the delimeters between COBOL elements and are not per- 
mitted. 

2. False. Correct compilation means that the program has been translated into 
machine language. 

3. True. 

4. False. Compilation will resume with a warning message. 

5. False. Most do, but some appear at the end of the listing. 

6. True. 

7. False. Execution is possible, but will usually be wrong, and end prematurely. 

8. False. The compiler detects only those errors which violate the COBOL syntax. 

9. True. 
10. True. 

Exercises 

1. Compilation errors: 

Line Number Correction 

66 SYNTAX - Hyphens are required in TOTAL-UNION-FEE. 

76 SYNTAX, DOUBLE DECLARATION, etc. - All problems sterri from a 

missing period in line 75. 

92 RESERVED WORD CONFLICT - START cannot be used as a paragraph 

name as it Is a reserved word. 

96 UNDEFINED -Should be STUDENT-FILE, rather than STUD-FILE. 

112, 120, 122, 144 IDENTIFIER - CREDITS is not unique. This is best fixed by defining 

PRINT-CREDITS in line 40; also, the * in line 112 should be preceded 
by a space. 

134 SYNTAX - The ADD statement cannot contain both GIVING and TO. 

The error is best corrected by deleting GIVING TOTAL-TUITION. 
135, 158 IDENTIFIER -Will disappear with the previous fix to line 66. 

137 DATA TYPE - TOTAL-IN D-BILL should be defined with PIC 9(6) rather 

than X(6) in line 67. 

150 REFERENCE INVALID - The WRITE statement requires a record name, 

PRINT-LINE, not a file name. 



Execution errors: 

(a) The total amount of individual bills is incorrect in the total line: TOTAL- 
IND-BILL is defined in line 760 and correctly incremented for each record 
in line 1460. However, when the total line is built in lines 1650-1700, 
IND-BILL, rather than TOTAL-IND-BILL, is moved to PRINT-IND-BILL 
in line 1700. 
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(b) The total for UNION-FEE is wrong: TOTAL-UNION-FEE is defined and 
initialized in line 750. However, when the other counters are incremented 
in lines 1430 to 1470, an ADD statement for TOTAL-UNION-FEE is miss- 
ing. TOTAL-UNION-FEE is subsequently moved to PRINT-UNION-FEE 
in line 1670, but TOTAL-UNION-FEE never budged from its initial value 
of zero. 

(c) The last record was processed twice. Recall that when the program struc- 
ture was first presented in Chapter 2, there was an initial READ statement 
in the mainline paragraph, and a second READ, as the last statement in 
the performed routine. That structure was correct. In Figure 5.6, the ini- 
tial READ statement was eliminated, and the second READ incorrectly 
moved to the beginning of the performed routine. 

To understand the effect, consider a file with only a single record. 
When the end of PROCESS-RECORDS is reached the first time, the end of 
file has not yet been sensed; hence PROCESS-RECORDS is entered a 
second time, even though there is only a single record. The end of file is 
sensed immediately in line 1201, but the perform is not terminated until 
line 1380. Consequently, the intermediate statements are executed a sec- 
ond time for the previous record. The problem is corrected by restoring an 
initial read in the mainline paragraph, between lines 1040 and 1070, and 
placing the existing READ statement of lines 1201 and 1202 after line 1380. 

(d) ACTIVITY-FEE computations are incorrect; consider the case of John 
Smith and his 15 credits. The value of IND-ACTIVITY-FEE is initially 
set to 25 in line 1280, to 75 in line 1320, and again reset to 50 in line 
1322. The problem is simply that the IF statements are inverted, causing 
anyone with 6 credits or more to be charged $50. Reversing these state- 
ments will set the activity fee to $50 for students with 7 to 12 credits and 
to $75 for anyone with more than 12 credits. 

(e) Individual SCHOLARSHIP is incorrect: in line 1570, SCHOLARSHIP with 
picture 9(4) is moved to PRINT-SCHOLARSHIP with picture $$9. The 
largest value that can appear in the latter field is $99; hence, any scholar- 
ship amounts in excess of $99 will have the high-order digits eliminated. 



True/ False 



1. True. 

2. False. They are optional in COBOL, but may be necessary in a commercial en- 
vironment. 

3. False. Level numbers per se have no effect on the CORRESPONDING option. 

4. False. Qualification may be required over several levels. 

5. True. 

6. True. 

7. False. The ELSE clause is optional, and thus may not be present for every IF. 

8. False. They are also known as 88-level entries. 

9. True. 
10. True. 
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1. (a) 
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STATE TABLE 



STATE -NAME (1) 



STATE - NAME (50) 



POPd) 



POP (50) 



A total of 1150 locations are allocated. The first 750 (50X15) are for 
the state-names; the next 400 (50X8) are for the populations. 



(b) 



STATE -TABLE 


NAME -POPULATION (1) 




NAME -POPULATION (50) 


STATE- NAME (1) 


POPd) 




STATE -NAME (50 


POP (50) 








• a« 











A total of 1150 locations are allocated. The first 15 are for the first state 
name, the next 8 for the first population, etc. 



2. 05 EMPLOYEE-DEPARTMENT 
88 MANUFACTURING 
88 MARKETING 
88 FINANCIAL 
88 ADMINISTRATIVE 
88 VALID-CODES 



PIC 99. 

VALUES ARE 10, 12, 16 THRU 30, 41, 56. 
VALUES ARE 6THRU9, 15, 31 THRU 33. 
VALUES ARE 60 THRU 62, 75. 
VALUES ARE 1 THRU 4, 78. 
VALUES ARE 1 THRU 4, 6 THRU 10, 12, 15 
THRU 33, 41 , 56, 60 THRU 62, 75, 78. 



3. Analysis: The statement, PERFORM SEC-A causes every paragraph in SEC-A 
(in this case all paragraphs) to be executed. Thus after SEC-A is performed 
X=18, Y=ll, Z=21, and N=3. After the paragraphs PAR-C through PAR-E 
are executed via the second perform, X=28, Y=21, and Z=41. N is then reset 
to 1. PAR-G is executed once leaving N=2 and X=33. PAR-G is then executed 
again leaving N=3 and X=38. PAR-G is executed a third time leaving N=4 and 
X=43. The until condition is satisfied and processing terminates. 
Thus the answers: 

(a) PAR-B is executed once (via PERFORM SEC-A). 
PAR-C is executed twice. 

PAR-D is executed twice. 
PAR-E is executed twice. 

PAR-F is executed once (via PERFORM SEC-A). 

PAR-G is executed four times (once via SEC-A and three times via the 
PERFORM UNTIL). 

(b) X=43, Y=21,andZ=41. 

(c) The program would be in an infinite loop since the UNTIL condition 
could never be satisfied. 
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4. (a) THIRD-ROUTINE 

(b) SECOND-ROUTINE 

(c) FIRST-ROUTINE 

(d) SECOND-ROUTINE 

(e) FIRST-ROUTINE 

(f) THIRD-ROUTINE 

5. (a) True. FIELD-E does not appear in RECORD-ONE. 

(b) False. FIELD-D has matching qualification, hence it will be moved. 

(c) False. The CORRESPONDING option looks at data-names, rather than 

level numbers. 

(d) False. The CORRESPONDING option looks at data-names, rather than 

positions. 

(e) False. The two left-most bytes of FIELD-B will be moved. 

6. First, DATE-WORK-AREA must be in the form YYMMDD: 

01 DATE-WORK-AREA. 

05 TODAYS-YEAR PIC 99. 

05 TODAYS-MONTH PIC 99. 

05 TODAYS-DAY PIC 99. 

Second, the COMPUTE statement should be rewritten. 

COMPUTE EMPLOYEE-AGE = TODAYS-YEAR - BIRTH-YEAR 
+ (TODAYS-MONTH - BIRTH-MONTH) / 12. 

The student should be urged to plug numbers in to both versions of the 
COMPUTE to be convinced of the difference. 



True/False 

1. False. Sequencing should be required by the shop. It is not imposed by COBOL. 

2. False. Blank lines enhance a program's appearance; e.g., before paragraph 
headers, 01 entries, etc. 

3. True. 

4. False. Paragraphs should be restricted to a single function; e.g., reading or com- 
puting. 

5. True. 

6. False. Comments may be redundant or inconsistent with source code; neither is 
desirable. 

7. False. It is both possible and desirable to eliminate 77-level entries. 

8. False. Such cryptic data names are impossible to understand by others and 
shouldn't be used. 

9. False. Good indentation greatly enhances one's understanding of source code. 
10. False. COBOL requires Picture clauses to begin in the B margin; the shop may 

require uniformity. 
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True/False 



1. False. They are equivalent, and print if and only if the sending field is negative. 

2. False. They frequently appear together; the * is used for check protection. 

3. False. Only a signed field (PIC S9 etc) can hold negative quantities. 
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4. False. Arithmetic can be performed only on fields with a 9, S, or V (i.e., nu- 
meric fields only). 

5. True. 

6. False. They must be presorted to correspond to the control break sequence. 

7. False. They can be over several levels; the chapter in the book illustrated a two- 
level problem. 

8. False. It is the responsibility of the programmer to initialize all counters. 

9. False. They are called for frequently; hence, the entire chapter was devoted to 
the subject. 

10. False. Both techniques are worth the effort so that complex programs may be 
followed more easily. 



Exercises 



1. 





Source Field 




Picture 


Value 


(a) 


S9(4)V99 


-045600 


(b) 


S9(4)V99 


045600 


(c) 


S9(4) 


4567 


(d) 


S9(6) 


122577 


(e) 


S9(6) 


1 23456 


(f) 


S9(6) 


-123456 


(g) 


S9(6) 


123456 


(h) 


S9(6) 


-1 23456 


(i) 


9(6)V99 


00567890 


(J) 


9(6)V99 


00567890 


(k) 


9(6)V99 


00567890 



Receiving Field 
Picture Edited Result 



$$$$$.99CR 
$$,$$$.99DB 

$$,$$$.00 
99B99B99 

+ + + + ,+ + + 



$$$$,$$$.99 
$ZZZ,ZZZ.99 



$ 



*** *** 



.99 



$456.00CR 

$456.00 

$4,567.00 

12 25 77 

+123,456 

-1 23,456 

123,456 

-123,456 

$5,678.90 
$ 5,678.90 
$**5,678.90 



2. (a) AMOUNT-REMAINING is defined as an unsigned numeric field (PIC 9(3)), 
which by definition can never be less than zero. 

(b) AMOUNT-REMAINING QUANTITY-SHIPPED AMOUNT REMAINING 

(Before Subtraction) (After Subtraction) 



100 

70 

20 

5 



30 
50 
25 
15 



70 

20 

5 

10 



Note well that AMOUNT-REMAINING can never go negative; hence, 
when 25 is subtracted from 20, the answer is the absolute value of the sub- 
traction; i.e., 5. In similar fashion, when 15 is subtracted from 5, the an- 
swer is 10. 

3. Debugging: The first step in debugging any program is to identify the errors 
which have occurred. That has been done for the reader through the captions 
on Figure 8.10. We will address those errors in sequence. 

The salesman total for Smith is missing the edit characters CR, to indicate 
that the total is negative. The first thought is that CR has been simply omitted 
from the edit picture (line 970 in Figure 8.11), but that proves not to be the 
case. The only conclusion possible is that the value of THIS-SALESMAN- 
TOTAL, the field which is moved to PRT-SALESMAN-TOTAL, is not nega- 
tive. Remember, CR will print if and only if the sending field is negative. 

THIS-SALESMAN-TOTAL is defined in line 470 as an unsigned numeric 
field; hence, it can never go negative and the problem is solved. 

The difficulty with cumulative location total is simply that THIS-LOCATION- 
TOTAL is not reinitialized to zero for each new location. The only question 
is where to insert the statement, MOVE ZEROS TO THIS-LOCATION-TOTAL. 
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Examination of the hierarchy chart of Figure 8.7 suggests the module PROCESS- 
ALL-LOCATIONS. Closer scrutiny of the program in Figure 8.11 pinpoints 
line 1300. 

The final difficulty involves printing the previous location and occurs in the 
module WRITE-LOCATION-HEADING. The data name TR-SALESMAN- 
LOCATION should be substituted for WS-PREVIOUS-LOCATION in line 
1720. 
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True/False 



1. True. 

2. False. They can, but need not be, identical. 

3. False. It appears in the called (i.e., sub) program only. 

4. False. It contains all four divisions of a regular COBOL program. 

5. True. 

6. True. 

7. False. The COPY statement is frequently used to initialize a table. 

8. True. 

9. False. The order is critical! ! ! 
10. True. 



Exercises 



The primary advantage of a COPY statement is that several programs have 
access to the identical table. Hence, if changes are necessary, they need only be 
made in one place; i.e., the copied module. The latter is changed the same way 
as an ordinary COBOL program using CEDIT. Realize, hovirever, that any pro- 
gram which uses the copied module has to be recompiled after the changes 
have taken place. 

Debugging: The problems of salesman and location total remaining at zero are 
related. The paragraph PROCESS-ALL-TRANSACTIONS, in Figure 9.8, is 
intended to increment (decrement) the appropriate salesman, location, and 
company totals. At first glance the paragraph appears correct. Closer examina- 
tion, however, reveals asterisks in lines 1460, 1470, 1520, and 1530. Recall 
that an asterisk in column 7 indicates a comment causing the associated line to 
be ignored by the compiler. Hence, the aforementioned entries are not translated 
into executable code. The problem is easily solved by removing the asterisks. 

The problem in the location heading leads to the subprogram of Figure 9.9 
where the location code is expanded. The arguments are passed correctly be- 
tween the main and subprograms via USING clauses in the GALL statement 
(line 1720 of Figure 9.8) of the main program and the Procedure Division 
header (line 490 of Figure 9.9) of the subprogram. The difficulty lies within 
the routine to expand the location code. 

Lines 540-560 indicate that EXPAND-LOCATION-CODE will be executed 
repeatedly until WS-LOCATION-SWITCH equals "YES"; i.e., until a match is 
found or the table is exceeded. The first time the subroutine is called, a match 
is found for Atlanta, WS-LOCATION-SWITCH is set to YES, and the heading 
prints correctly. Unfortunately, WS-LOCATION-SWITCH is never reset so that 
EXPAND-LOCATION is not executed when the subprogram is reentered. The 
solution is to insert line 530, MOVE "NO" TO WS-LOCATION-SWITCH on 
Figure 9.9. 
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True/False 



1. True. 

2. True. 

3. True. 

4. True. 

5. False. It can't; hence, the need for the REDEFINES clause. 

6. False. The table is better initialized by reading from a file which eliminates the 
REDEFINES. 

7. False. One is the entry in row 4, column 1; the other in row 1, column 4. 

8. False. It merely allocates space. 

9. True. 
10. True. 



Exercises 



1. (a) The 12 pairs of values are given below. Each set in parentheses represents 
(SUB1,SUB2): 

(1,1), (1,2), (1,3), (2,1), (2,2), (2,3) 
(3,1) (3,2), (3,3), (4,1), (4,2), (4,3) 



(b) Replacing the greater-than signs by equal signs would result in perform- 
ing 010-READ-CARDS a total ot six times as follows: 

(1,1) (1,2) (2,1) (2,2) (3,1) (3,2) 

If less-than signs were used, the paragraph would not be performed at 
all, as the condition is satisfied immediately. Remember, PERFORM/ 
VARYING increments, tests, and then branches. 



2. (a) 



ENROLLMENTS 


COLLEGE (1) 


COLLEGE (2) 


SCHOOL (1 




SCHOOL (5) 


SCHOOL (1) \ 


YR1 YF 


U \ 


'R1 


V 


R4 


YR 




• •« 


«•• 




• « • 








/ 



A total of 320 (4X5X4X4) locations are allocated. The first 80 are for Col- 
lege 1, the next 80 for College 2, etc. 
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(b) 





ENROLLMENTS 




COLLEGE (1) 


COLLEGE (2) 


SCH1 


SCH5 


YR1 YR4 


SCH1 


. 




• • » 


e* • 


• • « 



3. (a) 



A total of 144 locations are allocated. The first 36 are for the first college, 
the next 36 for the second college, etc. Within each group of 36, the first 
20 are for schools 1-5, and the last 16 for years 1-4. 
Valid. 

(b) Valid. 

(c) Invalid: REGION requires a single subscript. 

(d) Valid syntactically; invalid logically as there are only 6 regions. (It will 
compile correctly, but present a problem during execution.) 

(e) Invalid: CITY requires two subscripts. 

(f) Valid. 

(g) Valid. 

(h) Valid syntactically, invalid logically. 
4. The 24 sets of values are given below. Each set in parentheses represents 
(SUB1,SUB2,SUB3): 



(1,1,1), 


(2,1,1), 


(3,1,1), 


(4,1,1) 


(1,2,1), 


(2,2,1), 


(3,2,1), 


(4,2,1) 


(1,1,2), 


(2,1,2), 


(3,1,2), 


(4,1,2) 


(1,2,2), 


(2,2,2), 


(3,2,2), 


(4,2,2) 


(1,1,3), 


(2,1,3), 


(3,1,3), 


(4,1,3) 


(1,2,3), 


(2,2,3), 


(3,2,3), 


(4,2,3) 



There are three problems associated with the table lookups for location, title, 
and performance. We begin with location. Line 2070 of Figure 10.15 initializes 
a switch, lines 2080-2100 invoke the paragraph SEARCH-LOCATION-TABLE, 
and lines 2530-2600 do the actual table processing. All are correct, so the 
problem must lie elsewhere. Realize that ;/ nothing is wrong with the logic to 
do a table lookup, perhaps there is something wrong with the table itself. 
Closer examination of lines 770-920 which establish the location table re- 
veals that the REDEFINES clause is missing in line 890. Hence, LOCATION- 
VALUES and LOCATION-TABLE point to different areas in memory with the 
unfortunate result that the table was never properly initialized. 

Analogous reasoning solves the title problem as well. The table lookup, lines 
2130-2150 and 2620-2710, is correct in and of itself. The problem again lies 
in the table initialization. TITLE-TABLE is defined in lines 960-1010. It is 
to be initialized by reading values from a file, and the code in lines 1760-1940 
appears correct. The error is subtle and stems from the fact that NUMBER- 
OF-TITLES is never incremented as each title is added to the table. (Note well 
the OCCURS DEPENDING ON clause in the definition of the table, line 980.) 
Line 2630 of the table lookup procedure includes a check to ensure that the 
table size is not exceeded. However, since NUMBER-OF-TITLES remains at 
zero, lines 2640-2650 are always executed. The solution — insert line 1900, 
ADD 1 TO NUMBER-OF-TITLES. 
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The problem of performance is traced directly to the nested IF of lines 
2800-2890. An ELSE clause is missing in line 2850; hence, the IF of line 
2860 is executed whenever performance is average. Obviously, a value of A 
for EMP-PERFORMANCE-CODE cannot simultaneously produce a value of 
P, causing all employees with an average rating to show as unknown. 

The incorrect value of "months between increase" is traced to the COM- 
PUTE statement of lines 2950-2970. A conversion from years to months is 
required; hence, line 2960 should be multiplied by 12. 



True/False 

1. True. 

2. False. Testing should begin as soon as possible with the aid of program stubs. 

3. False. The higher level modules (with the more complex logic) are tested first. 

4. False. They should be as independent as possible. 

5. False. It has no syntax per se; indentation, capitalization, etc., are at program- 
mer discretion. 

6. False. Each module and/or paragraph in a program should be restricted to a 
single function. 

7. False. A flowchart is procedural in nature, while a hierarchy chart is functional. 

8. True. 

9. True. 
10. True. 

Exercises 

1. New Master 

100000000CALDWELL CHI0206 A35000098 1000000000 

111111111SIV1ITH DET0205 A 18000078 1000000000 

222222222JONES CH 10404 E230000381 200000980 

444444444l\/IILGROM DET0207 G 28000048 1240000480 

555555555CRAWFORD WAS0305 E350000981 300000581 

Error Messages 

ERROR - NO CORRESPONDING MASTER RECORD FOR 666666666 
Deleted File 

333333333BAKER BOS0306P195000182180001280 

2. Debugging: The incorrect salary update is easily traced to the paragraph 
UPDATE-EMPLOYEE-SALARY. The problem is that the MOVE statements 
of Hues 1625-1628 are out of order; specifically, line 1628 should precede 
line 1625. 

The title for Wicks, social security number 400-00-0000, is wrong. This 
record was added to the master file, and consequently the problem may be in 
the addition routine, lines 1721-1730. Sure enough, there is no statement to 
move TRANS-TITLE-CODE to NEW-TITLE-CODE (line 1724 was deleted 
from the correct program of the chapter). 

The record with social security number 333-33-3333 is missing from the 
new master. The logic in 020-COMP ARE-IDS appears correct, as do all state- 
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ments associated with WS-OLD-MAST-READ-SWITCH. We turn our attention 
to the transaction for the missing record, a correction, and to the paragraph 
080-CORRECT-OLD-RECORD. Note well that there is no WRITE statement 
at the end of the paragraph, and hence any corrected records will disappear. 

Observe also that record 777-77-7777 was not added to the master file, nor 
was it flagged in an error message. It too is missing, but for a different reason. 
The PERFORM statement of lines 1020-1040 indicates that processing will 
continue until either, rather than both, the old master and transaction files are 
empty. The solution — change OR to AND in line 1040. 
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True/False 



1. True. 

2. True. 

3. True. 

4. True. 

5. False. Inactive records are removed with the DELETE verb. 

6. False. Nonsequential means nonsequential!! 

7. False. Unique keys are required, else the indexed file will not be properly 
established. 

8. True. 

9. False. The record key must be defined within the indexed file and be unique 
for each record. 

10. False. Records are added by writing them to the file. 



Exercises 



1. Debugging: The concept of a hierarchy chart and the associated idea of func- 
tional paragraphs is very useful in debugging this program. Examination of the 
output reveals problems in deletion, correction and salary modification. Ac- 
cordingly, one has to focus only on the paragraph in question and the diffi- 
culties become readily apparent. 

Consider first the problem of deletions — Crawford, social security number 
555-55-5555, should have been deleted from the indexed file. The record 
was in fact written to the file of deleted records, but remained in the indexed 
file. The problem is that a DELETE statement is missing from the paragraph 
090-DELETE-NDX-RECORD. Recall that indexed records must be explicitly 
deleted, whereas a sequential update implicitly deletes records by not writing 
them to the new master. 

Failure to correct performance is attributable to the paragraph 080-CORRECT- 
NDX-RECORD. Our attention is first directed to lines 1610-1620 which ex- 
amine the transaction performance code. Apparently, there is nothing wrong 
with this statement, so what then is the problem? Careful examination reveals 
that a period is missing from line 1600; hence, lines 1590-1620 constitute a 
single nested IF statement. In other words, lines 1610 and 1620 are executed 
only if TRANS-EDUCATION-CODE is not blank. The solution is to insert a 
period at the end of hne 1600. 

The difficulty with salary updates leads one to the paragraph 075-UPDATE- 
EMPLOYEE-SALARY. After careful study, the reader may conclude that this 
paragraph is correct, so that the problem lies elsewhere, but where? The ex- 
perienced programmer must have the ability to know when a dead end is 
reached, and to try another approach. A logical thought is that if there is noth- 
ing wrong with the logic to do a salary update, then perhaps there is a problem 
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in calling this routine. Lines 1280-1290 show that 075-UPDATE-EMPLOYEE- 
SALARY is called when the 88-level entry SALARY-UPDATE is satisfied. 
Checking further, we find that the definition of SALARY-UPDATE in line 
550 is wrong. Recall from the problem specifications and test data that a trans- 
action code of U rather than X implies a salary update. 

Finally, the duplicate add message for the last transaction record must be 
accounted for. We see that the last transaction, social security number 777-77- 
7777, is an addition, and that the record is correctly added to the new master. 
The invalid error message results when the last transaction is processed a sec- 
ond time. Recall that a nonsequential update is driven by the transaction file. 
The correct program structure is m initial read, with a second read as the last 
statement of the performed routine. Examination of Figure 12.12 shows that 
the statement to read the transaction file is incorrectly placed. Move line 1125 
to appear before the PERFORM of line 1030 and after line 1200. 



The following is a list of TRS-80 reserved words where: 



* denotes reserved words not reserved in ANSI standard COBOL 

+ denotes ANSI COBOL reserved words not reserved by the compiler. Their 
appearance will generate a warning at the end of the compilation listing. 

** denotes system-name. 



ACCEPT 




ALPHABETIC 


AREA 


ACCESS 




+ALSO 


+AREAS 


ADD 




ALTER 


+ ASCENDING 


ADVANCING 


ALTERNATE 


ASSIGN 


AFTER 




AND 


AT 


ALL 




ARE 


AUTHOR 


*BEEP 




*BLINK 


BY 


BEFORE 




BLOCK 




BLANK 




4-BOTTOM 




CALL 




+CODE-SET 


COMPUTE 


+CANCEL 




COLLATING 


CONFIGURATION 


+CD 




-s-COLUMN 


CONTAINS 


+CF 




COMMA 


+CONTROL 


+CH 




+COMMUNICATI0N 


+CONTROLS 


CHARACTER 


COMP 


♦CONVERT 


CHARACTERS 


»C0MP-1 


COPY 


+CLOCK- 


UNITS 


*C0MP-3 


CORR 


CLOSE 




COMPUTATIONAL 


CORRESPONDING 


H-COBOL 




»COMPUTATIONAL-1 


■•-COUNT 


+CODE 




*C0MPUTATI0NAL-3 


CURRENCY 


DATA 




+DEBUG-SUB-1 


■^DESC ENDING 


DATE 




+DEBUG-SUB-2 


■HDESTINATION 


+DATE-COMPILED 


+DEBUG-SUB-3 


4-DETAIL 


DATE-WRITTEN 


■♦•DEBUGGING 


■HD I SABLE 


DAY 




DECIMAL-POINT 


DISPLAY 


+DE 




DECLARATIVES 


DIVIDE 


+DEBUe- 


CONTENTS 


DELETE 


DIVISION 


+DEBUG- 


ITEM 


+DELIMITED 


DOWN 


+DEBUO- 


LINE 


+DELIMITER 


DUPLICATES 


+DEBUG~ 


NAME 


DEPENDING 


DYNAMIC 


»ECHO 




+END-OF-PAGE 


ERROR 


+EGI 




+ENTER 


+ESI 


ELSE 




ENVIRONMENT 


+EVERY 


+EMI 




+EOP 


EXCEPTION 
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+ENABLE 


EQUAL 


EXIT 


END 


«ERASE 


EXTEND 


FD 


FILLER 


+FOOTINO 


FILE 


+FINAL 


FOR 


FILE-CONTROL 


FIRST 


FROM 


+GENERATE 


GO 


+GROUP 


GIVING 


GREATER 




+HEADINO 


HIGH- VALUE 




*HIOH 


HIGH-VALUES 




I-O 


INDEXED 


INSPECT 


I-0-CONTROL 


+INDICATE 


INSTALLATION 


IDENTIFICATION 


INITIAL 


INTO 


IF 


+INITIATE 


INVALID 


IN 


INPUT 


IS 


INDEX 


INPUT-OUTPUT 




JUST 


JUSTIFIED 





KEY 



LABEL 


+LIMIT 


+LAST 


+LIMITS 


LEADING 


+LINAGE 


LEFT 


+LINAGE-COUNTER 


+LENGTH 


LINE 


LESS 


+LINE-COUNTER 


MEMORY 


MODE 


+MERCE 


MODULES 


+MESSAGE 


MOVE 


NATIVE 


NO 


+NEGATIVE 


NOT 


NEXT 


+NUMBER 


OBJECT-COMPUTER 


OMITTED 


OCCURS 


ON 


OF 


OPEN 


OFF 


+OPTIONAL 



LINES 

LINKAGE 

LOCK 

LOW 

LOW-VALUE 

LOW-VALUES 



+MULTIPLE 
MULTIPLY 



NUMERIC 



OR 

ORGANIZATION 
OUTPUT 
+OVERFLOW 
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PAGE 
+P AGE-COUNTER 

PERFORM 
+PF 
+PH 

PIC 

PICTURE 



+PLUS 
+POINTER 

POSITION 
+POSITIVE 
#PRINT 
+PRINTING 

PROCEDURE 



+PROCEDURES 

PROCEED 

PRQGRAH 

PROGRAM-ID 
*PROMPT 



+QUEUE 



QUOTE 



QUOTES 



RANDOM 


^REMAINDER 


♦REVERSE 


+RD 


+REMOVAL 


+REVERSED 


READ 


RENAMES 


REWIND 


+RECEIVE 


REPLACING 


REWRITE 


RECORD 


+REPORT 


+RF 


RECORDS 


+REPORTING 


+RH 


REDEFINES 


+REPORTS 


RIGHT 


REEL 


+RERUN 


ROUNDED 


+REFERENCES 


+RESERVE 


RUN 


RELATIVE 


+RESET 




+RELEASE 


4-RETURN 




SAME 


SIZE 


+SUB-QUEUE-2 


+SD 


+SORT 


+SUB-QUEUE-3 


+SEARCH 


+SORT-MERGE 


SUBTRACT 


SECTION 


+SOURCE 


+SUM 


SECURITY 


SOURCE-COMPUTER 


+SUPPRESS 


+SEGMENT 


SPACE 


««SWITCH-1 


+SEGMENT-LIMIT 


SPACES 


*»SWITCH-2 


SELECT 


SPECIAL-NAMES 


/ 


+SEND 


STANDARD 


f 


SENTENCE 


STANDARD-1 


i 


SEPARATE 


START 


**SWITCH-e 


SEQUENCE 


STATUS 


+SYMBOLIC 


SEQUENTIAL 


STOP 


SYNC 


SET 


+STRING 


SYNCHRONIZED 


SIGN 


+SUB-QUEUE-1 




*TAB 


+TEXT 


TO 


+TABLE 


THAN 


+TOP 


TALLYING 


THROUGH 


TRAILING 


+TAPE 


THRU 


+TYPE 


^TERMINAL 


TIME 




+TERMINATE 


TIMES 




UNIT 


UNTIL 


USAGE 


♦UNLOCK 


UP 


USE 


+UNSTRINO 


+UPON 


USING 
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VALUE VALUES VARYING 



WHEN WORDS WRITE 

WITH WORKING-STORAGE 



ZERO ZEROES ZEROS 



> * 

< / 
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The TRS-80 COBOL language is based upon the ANSI X3.23-1974 COBOL 
standard. Minor departures from that document are reflected in the syntax 
description which follows but are not separately noted. Semantic rules are 
not changed. 

The description is in a condensed form of the standard COBOL syntax 
notation. In some cases separate formats are combined and general terms 
are employed for user names. 

System-names and implementation restrictions are: 

computer-name: User-defined word 

program-name: 8-character name 

switch-names: SWITCH-1, . . . , SWITCH-8 

device-types: PRINT 

INPUT 

OUTPUT 

INPUT-OUTPUT 

RANDOM 
external-file-name: One- to thirty-character name 



IDENTIFICATION DIVISION GENERAL FORMAT 



IDENTIFICATION DIVISION. 



PROGRAM-ID. program-name. 
[AUTHOR. Ccomment-entry 3 ... 3 
[INSTALLATION. Ccomment-entry 3 ... 3 
C DATE-WRITTEN. Ccomment-entry 3 ... 3 
CSECURITV. Ccomment-entry 3 ... 3 
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ENVIRONMENT DIVISION GENERAL FORMAT 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 



SOURCE-COMPUTER. computer-name. 
OBJECT-COMPUTER. computer-name 



I, MEMORY SIZE integer DWORDS >] 

<CHARACTERS> 
^:MODULES > 



C, PROGRAM COLLATING SEQUENCE IS alphabet-name]. 

C SPECIAL-NAMES. C, switch-name 

■CON STATUS IS cond it ion-name-1 C, OFF STATUS IS condit ion-name-23>3 

■COFF STATUS IS condition-name-2 L, ON STATUS IS condition-name-1 3>3 

C, alphabet-name IS -CSTANDARD-l}] . . . 

{NATIVE > 



C. CURRENCY SIGN IS literal-13 
C, DECIMAL-POINT IS C0MMA3. 2 
C INPUT-OUTPUT SECTION. 



FILE-CONTROL. 

■Cf ile-contTol-entry> ... 
CI-0-CONTROL. 



Zi SAME AREA FOR file-name-1 C. file-name-23 . . . D. . . .11 
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FILE CONTROL ENTRY GENERAL FORMAT 

FORHAT 1 

SELECT file-name 



ASSIGN TO device-type -Cex ternal-f i le-name"> 
-Cdata— name-1 > 

Li ORGANIZATION IS SEQUENTIAL: 
Ci ACCESS MODE IS SEQUENTIAL] 
Li FILE STATUS IS data-name-23. 



FORMAT 2 

SELECT file-name 



ASSIGN TO RANDOM, i:"ex ternal-f i 1 e~name "> 

-Cdata-name-l > 

i ORGANIZATION IS RELATIVE 



C; ACCESS MODE IS -C SEQUENTIAL C, RELATIVE KEY IS data~name-23> 1 

■C-CRANDOM > , RELATIVE KEY IS data-name-2 > 

■{■CDYNAMIO > 



Li FILE STATUS IS data-name-33 . 



FORMAT 3 



SELECT file-name 



ASSIGN TO RANDOM, -C "e x terna 1-f i 1 e-name"> 

-Cdata-name-l > 

i ORGANIZATION IS INDEXED 
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C; ACCESS MODE IB •{SEQUENT I AL>D 

•{RANDOM > 
ADYNAMIC > 



; RECORD KEY IS data-name-2 

Ci ALTERNATE RECORD KEY IS data-name-3 CWITH DUPLICATES] 3. 



Ci FILE STATUS IS data-name-4D. 



DATA DIVISION GENERAL FORMAT 

DATA DIVISION. 

CFILE SECTION. 

CFD file-name 

C; BLOCK CONTAINS Cinteger-1 TO] integer-2 -{RECORDS >D 

-{CHARACTERS> 
Ci RECORD CONTAINS [integer-3 T03 integer-4 CHARACTERS] 



; LABEL {RECORD IS > {STANDARD} 
•{RECORDS ARE> -{OMITTED > 



C; VALUE OF LABEL IS nonnumer i c-1 i teral-1 3 



li DATA <RECORD IS > data-name-1 C, data-name-2] ... ] 
•{RECORDS ARE> 



Crecord-description-entry] ... 3 
C WORKING-STORAGE SECTION. 



C77-level-descTiption-entry 3 ... 3 
Crecord-descr iption-entry 3 
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[LINKAGE SECTION. 



C77-level-description-entTy 3 ... 33 
Crecord-description-entry 3 



DATA DESCRIPTION ENTRY GENERAL FORMAT 



FORMAT 1 



level-number -Cdata-name-l} 
■CFILLER > 



C; REDEFINES data-name-23 



C; <PICTURE> IS character-string 3 
<PIC > 

C; [USAGE IS 3 {COMPUTATIONAL >3 
<COMP > 

<COMPUTAT I ONAL- I > 
<:C0MP-1 > 

■eCOMPUTAT 1 0NAL-3> 
{COMP-3 > 

■CDISPLAY > 
■C INDEX > 



C; [SIGN IS3 TRAILING [SEPARATE CHARACTER 3 3 



[; OCCURS -Cinteger-1 TIMES > 
<integer-l TO integer-2 TIMES DEPENDING ON data-name-3> 



[INDEXED BY index-name-1 [, index-name-23 ...3 3 



Li -[SYNCHRONIZED} [LEFT 3 3 
<SYNC > [RIGHT 3 
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C( -CJUSTIFIED} RIGHT] 
■CJUST > 

Ci BLANK WHEN ZERO] 



Ci VALUE IS literal] 

FORMAT 2 

66 data-name-1; RENAMES data-name-2 [■<:THR0UGH> data-name--33. 

■CTHRU > 

FORMAT 3 

88 condition-name; -CVALUE IS > 

■(VALUES ARE> 



literal-l C'CTHROUGH} literal-2] 
•CTHRU > 

Ci literal-3 C-CTHROUGH} literal-4D 1 
<THRU > 



PROCEDURE DIVISON GENERAL FORMAT 
FORMAT 1 

PROCEDURE DIVISION CUSING data-name-1 C, data-name-23 ... 3 . 

[DECLARATIVES. 

■Csection-name SECTION Csegment-number]. declarative-sentence 
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Cparagraph-name. CsentenceJ ... 3 
END DECLARATIVES. 1 



•Csection-name SECTION Csegment-number3. 



Cparagraph-name. [sentence!] ... ] 
END PROGRAM. 



FORMAT 2 



PROCEDURE DIVISION CUSING data-name-1 C, data-name-2] 



-Cparagraph-name. CsentenceD 
END PROGRAM. 



GENERAL FORMAT FOR VERBS 



ACCEPT -Cidentif ier-1 i. UNIT <identif ier-2>] 
-Cliteral-l > 

C. LINE -Gidentifier-a}] C, POSITION -Cidentif ier-4>] 
•Cliteral-2 > ^literal-3 > 

L. SIZE {identif ier-5>3 C, PROMPT Cliteral-53] 
{literal-4 > 

C, ECHOD C, CONVERT] [, TABD [, ERASED C, NO BEEP 3 

C, -COFF}] C, ON EXCEPTION identifier~6 imperative statement]}. 



ACCEPT identifier FROM <DATE> 

-CDAY > 
■CTIME> 



ADD tidentif ier-l> C, identif ier-2] ... TO identifier-m GROUNDED] 
-Cliteral-l > L, literal-2 ] — 



Li ON SIZE ERROR imperative-statement] 
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ADD -Cidentif ier-l>. -Cidentif ier-2> L, identi f ier-33 
-Cliteral-l > •Cliteral-2 > C; literal-3 1 

GIVING identif ier-m CR0UNDED3 

C< ON SIZE ERROR imperative-statements 



ADD -CCORRESPONDING} identifier-l TO identifier-2 
•CCORR > 

CR0UNDED3 t: ON SIZE ERROR imperative-statement] 

ALTER procedure-name-1 TO [PROCEED TOD procedure-name-2 

C, procedure-name-3 TO [PROCEED T03 procedure-name-43 . . 

CALL -Cidentif ier-l> CUSING data-name-1 C, data-name-23 ... 3 
-Cliteral-l > 

CLOSE file-name-1 C<REEL> CWITH NO REWIND] 1 

■CUNIT> 

WITH -CNO REWIND> 

-CLOCK > 

C, file-name-2 C<REEL> CWITH NO REWIND3 11... 
-CUNIT> 
WITH -CNO REWIND> 
■CLOCK > 

COMPUTE identifier-! CROUNDEDD = arithmetic-expression 

Ci ON SIZE ERROR imperative-statement] 

DELETE file-name RECORD C; INVALID KEY imperative-statement] 



DISPLAY {{identif ier-l> C. UNIT -Cidentif ier-2> ] 
-Cliteral-l > •ClitBral-2 > 

C, LINE -Cidentif ier-3>]C, POSITION -Cidentif ier-4>] 
-Cliteral-3 > -Cliteral-A > 
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C, SIZE -Cidentif ier-5>K, BEEP3E, ERASE3 
-Cliteral-S > 

C. <HIGH>3C, BLINKK, REVERSED> . . . 



■CLOW > 



DIVIDE <identif ier-l> INTO identifier-2 [ROUNDED! 
-Cliteral-l > 

Ci ON SIZE ERROR imperat ive~statement3 



DIVIDE <identif ier-l> INTO -Ci dentif ier-2> GIVING identifier-3 
-Cliteral-l > ■Cliteral-2 > 

[ROUNDED] Ci ON SIZE ERROR imperative-statement 3 



DIVIDE -Cidentif ier-l> BY -Cident i f ier-2> GIVING identifier-3 GROUNDED] 

-Cliteral-l > — ■Cliteral-2 > 

C; ON SIZE ERROR imperative-statement] 



EXIT CPROGRAM]. 
GO TO procedure-name-l 

GO TO procedure-name-l C, procedure-name-2] ... ; procedure-name-n 
DEPENDING ON identifier 



IF condition; -Cstatement-l > -C; ELSE 5tatement-2 > 
{NEXT SENTENCE> -C; ELSE NEXT SENTENCE> 



INSPECT identifier-1 



[TALLYING identifier-2 FOR -C-CALL > -Ci dent i f ier-3>> 

-Cliteral-l >> 

•C-CLEADING> 



< CHARACTERS 



[■CBEFORE> INITIAL -Cident i fi er-4> ] ] 

•Cliteral-2 > 

-CAFTER > 
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[REPLACING -e^ALL > -Cidentif ier-5>> BY -Cidentif ier-6> 

-Cliteral-a > — <literal-4 > 

<-tLEADING> > 



^■CFIRST > > 

< CHARACTERS > 



C-CBEFORE> INITIAL -Cident i f ier-7>3 3 

-Cliteral-S > 

<AFTER > 



NOTE: The TALLYING option, the REPLACING option, or both 
options must be selected. 

MOVE -Cidentif ier-l> TO identif ier-2 C, identif ier-33. . . 
{literal > — 

MOVE <CaRRESPONDINO> identifier-1 TO identif ier-2 

•CCORR > 



MULTIPLY -Cidentif ier-l> BY identifier-2 CR0UNDED3 
Cliteral-1 > — 

C; ON SIZE ERROR imperative-statement] 



MULTIPLY Cidentif ier-l> BY <identif ier-2> GIVING identifier-3 
Cliteral-1 > — Cliteral-2 > 

CROUNDED] C; ON SIZE ERROR imperative-statement: 



OPEN <-CINPUT file-name-1 CWITH NO REWIND3> 
C, file-name-2 CWITH NO REWIND]... 



<OUTPUT file-name-3 CWITH NO REWIND]> 

C, file-name-4 CWITH NO REWIND3D... 



-CI-0 f i le-name-5>C J f i le-name-6D. . . 
-CEXTEND file-name-7>C, f i le-name-BD. . . >. 



PERFORM procedure-name-1 C-CTHR0UGH> procedure-name-23 

CTHRU > 
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PERFORM procedure-name-1 C<THROUGH> procedure-name-23 

■CTHRU > 

<identif ier-l> TIMES 
■Cliteral-1 > 

PERFORM procedure-name-1 C-CTHROUGH> procedure-name-2D 

■CTHRU > 

UNTIL condition-l 



PERFORM procedure-name-i C{THROUGH> procedure-name-2] 

■CTHRU > 

VARYING -Cidentif ier-2> FROM <ident if ier-3> 

<index-name-l> <index-name-2> 

^literal-! > 

BY -Cidentif ier-4> UNTIL condition-l 
— {literal-3 > 

CAFTER -Cidentif ier-5> FROM <ident i f ier-6> 

-Cindex-name-3> -Cindex-name-4> 

-CliteraI-3 > 

BY <identif ier-7> UNTIL condition-2 

— ■Cliteral-4 > 

[AFTER -Cidentif ier-8> FROM Klident if ier-9> 

-Cindex-name-5> -Cindex-name-A} 

■Cliteral-5 > 

BY -Cidentif ier-10> UNTIL condition-3 1 1 

— <literal-6 > 

READ file-name RECORD [INTO identifier] 
C; AT END imperative-statement] 

READ file-name CNEXT3 RECORD CWITH NO LOCK] CINTO identifier] 
Ci AT END imperative-statement] 

READ file-name RECORD CWITH NO LOCK] CINTO identifier] 
Ci KEY IS data-name] 
Ci INVALID KEY imperative-statement] 



REWRITE record-name CFROM identifier] 

Ci INVALID KEY imperative-statements 
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SET ■£ identif ier-1 C, identif ier-23 . . . > TO -Cidentif ier-3> 

-Cindex-name-i L, index-name-2] . . . > — -Cindex-name-G} 

•{integer-l > 

SET index-name-4 [< index-name-5D ... <.UP BY > {ident if ier-4> 

— — ■{integer-2 > 

<DOWN BY> 

START file-name CKEY <IS EQUAL TO > data-nameD 



■CIS = > 

■CIS GREATER THAN > 



<IS > > 

■CIS NOT LESS THAN> 

■CIS NOT < > 



Ci INVALID KEY imperative-statement 3 



STOP -CRUN > 

■Cliteral > 

SUBTRACT ■Cidentif ier-l> [, i dent i f i er~2] . . . FROM identifier-m 
■Cliteral-1 > Z, literal-2 3 

CROUNDED] C; ON SIZE ERROR imperative-statement 3 



SUBTRACT -Cidentif ier~l> C, identi f ier-2] ... FROM <ident if ier-m> 
■Cliteral-1 > C, literal-2 ] -Cliteral-m > 

GIVING identifier-n CR0UNDED3 



C; ON SIZE ERROR imperative-statement 3 



SUBTRACT ■CCORRESPONDING> identifier-l FROM identifier-2 CR0UNDFD3 
•CCORR > 

Ci ON SIZE ERROR imperative-statement] 



UNLOCK file-name-1 RECORD 



USE AFTER STANDARD <EXCEPTION> 

■CERROR } 

PROCEDURE ON -Cf i 1 e-name-1 C, file-name-2: 
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•CINPUT > 

■COUTPUT > 

•CI-0 > 

•CEXTEND y 



WRITE record-name CFROM ident i f i er-1 ] 



■CBEFORE> ADVANCING -{-Ci dent i f ier-2> <LINE >> 

-C-Cinteger > -CLINES}} 

■CAFTER > -C PAGE > 



WRITE record-name CFROM identifier] 

Li INVALID KEY imperative-statement 3 

GENERAL FORMAT FOR CONDITIONS 



RELATION CONDITION: 



-Cidentif ier-1 > -flS CNOTD GREATER THAN> -Ci dent i f i er-2 > 

■Cliteral-l > •<:iiteral-2 > 

■(index-name-l > -CIS [NOT] LESS THAN > -C i nde x-name-2 > 

•CIS [NOT 3 EQUAL TO > 

■CIS CNOTJ > > 

-CIS CN0T3 <: > 

■CIS CNOTD = > 



CLASS CONDITION: 

identifier IS CN0T3 <NUMERIC > 

{ALPHABETIO 



CONDITION-NAME CONDITION: 



cond it ion-name 
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1 — SWI 



TCH-STATUS CONDITION: 



condition-name 
NEGATED SIMPLE CONDITION: 

NOT simple-condition 

COMBINED CONDITION: 

condition -CCAND} condition} 
<0R > 

MISCELLANEOUS FORMATS 
QUALIFICATION: 



<data-name-l > C-GOF> data-name-2] 
-Ccondition-name> — 

<IN> 



paragraph-name C-<:OF> section-name] 
■CIN> 



SUBSCRIPTING: 



■(data-name > (subscript-1 C, subscript-2 C, subscript-33 1 ) 
•Ccond it ion-name > 

INDEXING: 



(data-name > < (index-name-l L<+y iiteral-23> 
■Ccondition-name> (literal-1 (-> > 

C. ■(:index-name-2C{+> literal-4]> 
<literal--3 <-> } 

Z. -Cindex-name-a C{ + > literal-6D > 3 3 ) 
<liteTal-5 <-> > 



295 



IDENTIFIER: 

FORMAT 1 

data-name-l C-COF> data-name-2D . . . 
<IN> 

C (subscript-1 C. subscript-2 Ci subscript-33 3 ) 3 

FORMAT 2 

data-name-l C-COF> data-name-2D ... C< -Cindex-name-l C<+> literal-2] 

<Iiteral-l {-> 

•CIN> 



t, ■Cindex-name-2 C-£+> literal-43> 
•ClitBral-3 <-> > 

C, <index-name-3 C-C+> literal-6D> 33)3 
•Cliteral-5 <-> > 



GENERAL FORMAT FOR COPY STATEMENT 



COPY -text-name 
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A-Margin: Column^ 8-1 1 on a coding pad. Many COBOL elennents are required to begin 
in tlie A-IVlargin; e.g., division, section, and paragrapti headers; 01 and 77 level entries, 
FDs, etc. 

Access Mode: The manner in which records are to be operated upon within a file; the 
text discussed sequential and indexed sequential files. 

Actual Decimal Point: The physical (as opposed to the assumed or implied) representa- 
tion of the decimal point position in a data item. 

Alphanumeric Character: Any character in the computer's character set. 
Arithmetic Operator: One of four symbols denoting arithmetic: + (addition), - (sub- 
traction), * (multiplication), and / (division). 

Assumed Decimal Point: A decimal point position with logical meaning, but not physical 
representation, and which does not have an actual character in a data item. The assumed 
decimal point is denoted by a V. 

AT END Condition: A condition caused during the execution of a READ statement for 
a sequentially accessed file; i.e., a file with N records will be read N+1 times in order that 
the AT END condition may be detected. 

B-Margin: Columns 12-72 on a coding pad. Any COBOL element which is not required 
to begin in the A-Margin, must begin in the B-Margin. 
Called Program: see Subprogram. 

Calling Program: A program which executes a CALL to another program. 
COBOL Character Set: The complete COBOL character set consists of the 51 characters 
listed below. 

Character Meaning 



0, 1,... ,9 digit 

A, B, Z letter 

space (blank) 
+ plus sign 

minus sign (hyphen) 
* asterisk 

/ stroke (virgule, slash) 

= eqiial sign 

$ currency sign 

comma (decimal point) 
; semicolon 

period (decimal point) 
" quotation mark 

( left parenthesis 

) right parenthesis 

> greater than symbol 

< less than symbol 



Coding Standards: Additional requirements imposed on a program by an installation to 
enhance a program's readability (see Chapter 7). 

Compound Condition: A condition which connects two or more conditions with the 
'AND' or the 'OR' logical operator. 

Comment Line: A source program line denoted by an asterisk in column 7, and which 
serves only for documentation. 

Compiler: A program which translates a higher level language, e.g., COBOL, into a lower 
level machine language. The COBOL compiler on the TRS-80 is invoked by the com- 
mand RSCOBOL. 

Compile-Time: The time at which a COBOL source program is translated, by a COBOL 
compiler, to a COBOL object program. 
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Appendix D 299 

Condition-Name (88 level entry): A user-defined word assigned to a specific value or set 
of values (see Chapter 6). 

Conditional Expression: A simple or compound condition specified in an IF or PER- 
FORM statement. 

CONFIGURATION SECTION: A section of the Environment Division that describes 
overall specifications of source and object computers. 
Control Break: A change in a designated field (see Chapter 8). 

DATA DIVISION: The third major component of a COBOL program. The FILE SEC- 
TION describes the files used by a program and the records contained within. The 
WORKING-STORAGE SECTION describes additional records and/or data names re- 
quired by the program which are not present in a file. 

Debugging: The process of finding and correcting errors in a program (see Chapter 5). 
DECLARATIVES: A set of one or more special purpose sections, written at the be- 
ginning of the Procedure Division, the first of which is preceded by the key word 
DECLARATIVES and the last of which is followed by the key words END DECLARA- 
TIVES (see Chapter 12). 

Editing Character: A single or fixed two-character combination as follows (see Chapter 
8): 

Character Meaning 



B space 

zero 

+ plus 

minus 
CR credit 

DB debit 

Z zero suppression 

* check protection 

$ currency sign 

comnna 

period (decimal point) 
/ slash 



Elementary Item: A data name which is not further subdivided, and which a/ways has a 
picture clause in its definition. 

ENVIRONMENT DIVISION: The second major component of a COBOL program. It is 
divided into a CONFIGURATION SECTION and an INPUT-OUTPUT SECTION. The 
latter is the more important and ties programmer-chosen file names to system names. 
Execution Time: see Object Time. 

Field: One or more characters which describe an attribute; e.g., name, social security 
number, salary, etc. 

Figurative Constant: A compiler-generated value referenced through the use of certain 

reserved words, e.g., SPACES or ZEROS. 

File: A collection of records. 

FILE-CONTROL: The name of the Environment Division paragraph in which the data 

files for a source program are declared. The FILE-CONTROL paragraph consists of 

SELECT statements which tie programmer-chosen file names to physical files. 

FILE SECTION: The section of the Data Division that contains file description entries 

together with their associated record descriptions. 

Flowchart: A pictorial representation of the logic in a program. 

Group Item: A data name which is further subdivided; a group item never has a picture 
clause. 
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Hierarchy Chart: A program's "organization cliart", analogous to a corporate organiza- 
tion chart, wliich graphically depicts the relationship of COBOL paragraphs to each other. 
Each level of a hierarchy chart corresponds to a COBOL PERFORM statement. 
IDENTIFICATION DIVISION: The first major component of a COBOL program. It 
must contain the PROGRAIVl-ID paragraph and may contain additional documentation 
such as author, installation, etc. 

Identifier: A data-name, followed, as required, by a combination of qualifiers, subscripts, 
and indices necessary to make unique reference to a data item. 

Imperative Statement: A statement beginning with a verb, and specifying an uncondi- 
tional action to be taken. 

Index: A data item, the contents of which represent the identification of a particular 
element in a table (see Chapter 10). 

Indexed File: A type of file organization which allows individual records to be accessed 
either sequentially or nonsequentially (see Chapter 12). 

INPUT-OUTPUT SECTION: The section of the Environment Division containing the 
FILE-CONTROL paragraph tfiat names the files and the external media required by an 
object program. 

INVALID KEY Condition: A condition caused when a specific value of the key asso- 
ciated with an indexed file is determined to be invalid, e.g., when a particular key does 
not exist in an indexed file (see Chapter 12), 

Level Number: Numbers (01 through 49) which are used to indicate the relative position 
of data names within a record. Level numbers 77 and 88 have special significance. 
LINKAGE SECTION: The section in the Data Division of the ca/Zefy program that de- 
scribes the data items available from the calling program. These data items may be re- 
ferred to by both the calling and called program (see Chapter 9). 

Literal: A quantity with an unchanging value; may be numeric (i.e., a constant), or non- 
numeric (a character string enclosed in quotes). 
Logical Operator: One of the reserved words AND, OR, or NOT. 

Non-numeric Literal: A character-string bounded by quotation marks. The string of char- 
acters may include any character in the computer's character set. 

Numeric Literal: A literal composed of one or more numeric characters, that may con- 
tain a decimal point, an algebraic sign, or both. 

OBJECT-COMPUTER: An Environment Division paragraph which describes the com- 
puter environment, in which the object program is executed. 

Object Program: The result of the operation of a COBOL compiler on a source program. 
Object Time: The time at which an object program is executed. 
Paragraph: One or more COBOL sentences. 

PICTURE Clause: A Data Division entry used to describe the length and type of a data 
name. 

Procedure: A paragraph or section. 

PROCEDURE DIVISION: The fourth and final component of a COBOL program. It 
contains a program's logic and may be divided into sections or paragraphs. 
Programmer-supplied name: A file, data, or procedure (paragraph or section) name made 
up by the programmer according to COBOL rules. 

Pseudocode: "Neat notes" to oneself which convey the logic in a program. Pseudocode 
is limited to the three basic building blocks of structured programming, but otherwise has 
no formal syntax. 

Punctuation Character: A character that belongs to the following set: , (comma), ; (semi- 
colon), . (period)," (quotation mark), ( (left parenthesis), ) and (right parenthesis). 
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Qualified Data-Name: An identifier that is composed of a data-name followed by either 
of the connectives OF or IN, followed by a data-name qualifier (see Chapter 6). 
Record: A set of facts (i.e., fields) about a logical entity. 

Reference Format: A format that provides a standard method for describing COBOL 
source programs (see Appendix C). 

Relational Operator: A reserved word(s) or a relational character used in the construction 
of a relational condition. The permissible operators and their meanings are: 

Relational Operator Meaning 



IS (NOT) GREATER THAN Greater than or not 
IS (NOT) > greater than 

IS (NOT) LESS THAN Less than or not 
IS (NOT) < less than 

IS (NOT) EQUAL TO Equal to ornot 
IS (NOT) = equal to 



Reserved Word: A predefined word, having specific meaning to the COBOL compiler, 
which must be used in a prescribed manner (see Appendix B). 
Section: One or more COBOL paragraphs. 

Sentence: A sequence of one or more statements, the last of which is terminated by a 
period followed by a space. 

SOURCE-COIVIPUTER: An Environment Division paragraph which describes the com- 
puter environment in which the source program is compiled. 

Source Program: A set of COBOL statements, beginning with an Identification Division 
and ending with the end of the Procedure Division, which is submitted to the compiler. 
Special Character: A character that belongs to the following set: 

Character Meaning 



+ plus sign 

minus sign 
* asterisk 

/ stroke (virgule, slash) 

— equal sign 

$ currency sign 

comma 
semicolon 

period (decimal point) 
quotation mark 
( left parenthesis 

) right parenthesis 

> greater than symbol 

<^ less than symbol 



Statement: A syntactically valid combination of words and symbols, beginning with a 
verb and written in the Procedure Division. 

Structured Programming: A discipline which restricts the logic of any program to the 

three elementary building blocks of sequence, selection, and iteration. (Every program in 

this text is a structured program. See chapter 7). 

Subprogram: A complete COBOL program which can be.developed, compiled, and tested 

separately; also known as a called program (see Chapter 9). 

Subscript: An integer whose value identifies a particular element in a table. 
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Symbol: A character with specific meaning; symbols may be relational, arithmetic, or for 
punctuation. 

Table: A set of logically consecutive items of data that are defined in the Data Division 
by means of the OCCURS clause. 

Top Down Approach: The philosophy of testing a program (or system) before it is 
completely finished. Top down development follows a program's hierarchy chart and re- 
quires the use of program stubs (see Chapters 1 1 and 12). 

WORKING-STORAGE SECTION: The section of the Data Division describing data items 
not specified in input or output records. 




as CEDIT command, 32, 34 
in PICTURE, 7,44 

ACCEPT, {4, 8, 104-5, 117 

ACCESS IS RANDOM, 238 

ACCESS IS SEQUENTIAL, 238, 
242 

ACCESS MODE, 238 

Actual decimal point, 146, 147, 
298 

ADD, 48-49, 130 

AFTER ADVANCING, 54 

ALL, 61 

Alphabetic class test, 229 

Alphanumeric, 7, 44, 298 

A margin, 28, 34, 298 

American National Standards Insti- 
tute {see ANSI) 

AND, 98-100 

ANSI, 13 

Arithmetic expression, 52 

Arithmetic symbols, 6, 52, 87 

ASSIGN (see SELECT) 

Assumed decimal point, 56-57, 
64 

Asterisk: 

in arithmetic expression, 52, 

53 
as comment, 34 
in PICTURE, 146, 147 

AT END (see READ) 

AUTHOR, 43 



B 



as CEDIT command, 32, 34 
in PICTURE, 109, 116,146 

Backup, 215 

BACKUP utility, 215 

BEFORE ADVANCING, 54 

Binary search (see SEARCH ALL) 

Blank line, 129 

B margin, 28, 34, 298 

Braces, 42 

Brackets, 42 

Byte, 236 



as CEDIT command, 32 
CALL, 169-70 

Called program (see Subprogram) 
Calling program, 169-76 
CBL (as file extension), 26, 30 
CEDIT, 31-34, 168-69 
Character set, 298 
Check protection (see Asterisk) 
Class test (see IF, class test) 
CLOSE, 17,54 

COB (as file extension), 26, 30 
Coding standards (see Standards) 
Column numbers in COBOL, 34, 

75,88 
Comma: 

in editing, 57, 146, 147 

in listing, 128 



COMMAND mode (see CEDIT) 
Comments, 34, 128-29, 298 
Compilation error, 70-81, 86-93 
Compiler, 24, 25, 298 
Compiler Options (see RSCOBOL) 
Completeness check, 230 
Compound test (see IF, compound 

test) 
COMPUTE, 52-53, 85, 106-7, 130 
Conditional expression, 298 
Conditional symbols, 6 
Condition name (see IF, condition 

name) 
CONFIGURATION SECTION, 7, 

44 
Consistency check, 229 
Constants, 131 (see Literal) 
Continuation of alphanumeric 

literal, 132 
Control break, 148-65 
COPY, 168-69, 171, 176, 187, 

191 
CORRESPONDING (see MOVE 

CORRESPONDING) 
CR: 

inPICTURE, 146, 148,151 
Cross reference, 27, 29 
Currency symbol (see Editing) 



as CEDIT command, 32 
DATA DIVISION, 3, 44-47 
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Index 



Dataname, 5, 127 

Dataname qualification (see Quali- 
fication) 

DATA RECORD IS, 46 

Data validation, 114 

DATE, 104 

Date check, 230 

DATE-COMPILED, 143 

DATE-WRITTEN, 43 

DAY, 104 

DB: 

in PICTURE, 146, 148 

Debugging, 69-96, 161-64 

(see also exercises in Chapters 
8-12) 

Decimal alignment (see Editing) 

Decimal point (see Editing) 

DECLARATIVES, 240-41, 249, 298 

DELETE, 240 

DEPENDING ON (see OCCURS 
DEPENDING ON) 

DIR command, 30 

Direct access to table entries, 194 

DISPLAY, 4,8,104,219 

DIVIDE, 50, 51,130 

Documentation, 156, 218 

Dollar sign (see Editing) 

Double spacing (see AFTER 
ADVANCING) 

DO WHILE structure (see Iteration 
structure) 

DOWN BY (see SET) 

Duplicate datanames, 107-9 



As CEDIT command, 32 
Editing, 56-57, 146-48, 160, 298 
EDIT mode (see CEDIT) 
Edit program, 217, 229-30 
Elementary item, 27, 45-46, 298 
ELSE, 58 (see IF) 
END DECLARATIVES, 240 
End-of-file condition, 13-14 
ENVIRONMENT DIVISION, 2,16, 

43,77 
Error processing (see Edit program) 
Execution error, 82-85, 93-96, 

161-64 
EXIT, 103 
EXIT PROGRAM, 169-70, 174, 

175 
Exponentiation, 52 
Expression (see Arithmetic 

expression) 



as CEDIT command, 32 
FD,16,46,77,87,168 
Field, 12,298 

Figurative constant, 47, 55, 298 
File, 12 

FILE-CONTROL, 44, 298 
File maintenance : 

nonsequential, 236-49 

sequential, 214-30 
File name: 

in COBOL, 5 

under TRSDOS, 26 



FILE SECTION, 16, 46 

FILE STATUS, 239, 240, 245 

FILLER, 46 

Fixed length record, 185 

Floating dollar sign, 57, 147 

Floating minus sign, 147 

Floating plus sign, 147 

Flowchart, 12-14 

FORMS command, 30 

FROM (see SUBTRACT, WRITE) 



GIVING (see Arithmetic verbs) 

GOTO, 103,137 

Grauer, R., 214 

Group item, 27, 45-46, 298 



H 



Hard copy, 30 
Heading line, 118 
Hierarchy : 

of arithmetic operations, 52 

between group and elementary 
items, 45 

chart, 4, 63-64,138, 156, 
218-19, 245, 298 

in IF statement, 99 
HOLD, 27,30 
Housekeeping, 13, 14 
Hyphen, 5,87,132 



I 



as CEDIT command, 32, 34 
IDENTIFICATION DIVISION, 2, 

43 
Identifier, 298 
IF, 58 

compound test, 99-100, 135, 

298 
condition name, 100-101, 

115,135,151,216 
indentation, 102 
nested, 101-2, 117,130 
notation, 42, 43 
period, 6, 17 
Imperative statement, 298 
Implied conditions (see IF, implied 

conditions) 
Implied decimal point (see 

Assumed decimal point) 
IN (see Qualification) 
Indentation in COBOL, 130-31, 

143 
Index, 185, 188-89 
INDEXED BY, 184-85 
Indexed files, 236-40 
Initial read, 17, 18, 19, 59, 85 
INPUT (see OPEN) 
INPUT-OUTPUT SECTION, 16, 44 
Input validation (see Data 

validation) 
INSERT mode (see CEDIT) 
INSPECT, 109, 117,192 
INSTALLATION, 43 
Installation standards (see 
Standards) 



Instruction explosion, 25 
INVALID KEY, 239-40, 242, 

245 
Iteration structure, 136-37 



KILL command, 30, 31, 215 



as CEDIT command, 32 

as compiler option, 27 
LABEL RECORDS, 46 
Labels, 16 

Level number, 7, 45-46, 298 
Limit check, 229 
LINE, 104, 105 
LINES (see WRITE) 
LINKAGE SECTION, 169-71, 

175 
Literal, 5-6,47,55, 

132-33, 298 
Loading a table (see Table) 
Logical operator, 298 
Logic error, 82-86 
LST (as file extension), 26, 30, 242 



M 



Machine language, 24-26, 27, 188 
Maintenance (see File maintenance) 
Minus sign: 

in arithmetic expression, 52 

in PICTURE, 146, 147 
MOVE, 54-57 

MOVE CORRESPONDING, 107-9 
Multilevel table (see Table) 
MULTIPLY, 50,51,130 



N 



as CEDIT command, 32, 34 
Negative data (see Signed number) 
Nested IF (see IF) 
New Master (see File maintenance) 
NEXT SENTENCE, 101 
Non-numeric literal (see Literal) 
Nonsequential file maintenance 

(see File maintenance) 
NOT, 99 
Notation in COBOL statements, 

42, 282-96 
NUMERIC, 229 
Numeric class test, 229 
Numeric literal (see Literal) 



as compiler option, 27 

OBJECT-COMPUTER, 7, 44 

Object language, 24 

Object module, 171 

OCCURS, 110-11, 184-85, 186, 
190 
with three level table, 202-3 
with two level table, 197, 199 
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OCCURS DEPENDING ON, 184- 

85 
OF (see Qualification) 
Old master (see File maintenance) 
OPEN, 17,54,239 
Operator precedence rule (see 

Hierarchy) 
Optional reserved word, 42 
OR, 99-100 
ORGANIZATION IS INDEXED, 

238, 242 
OUTPUT (see OPEN) 



as CEDIT command, 32, 34 

as compiler option, 27 
Padding (see MOVE) 
PAGE, 54 
Paragraph, 4, 298 
Paragraph name, 5, 127, 128 
Parentheses: 

in arithmetic statement, 52 

in compound condition, 100 
PERFORM, 58-59,76 

paragraphs vs. sections, 102-3, 
134 

THRU, 103 

UNTIL, 18, 59 

VARYING, 111-12, 117, 175, 
186 

with three level table, 197-98 

with two level table, 204 
Period, 6, 85, 87 
PICTURE, 7,17,44, 87 
Plus sign: 

in arithmetic expression, 52 

in PICTURE, 146, 147 
POSITION, 104, 105 
Prefixing (of dataname), 86, 143 
Priming read (see Initial read) 
PRINT utility, 30, 238, 242 
Procedure, 298 

PROCEDURE DIVISION, 3, 48-59 
PROGRAM -ID, 35,43 
Programmer supplied name, 5 
Programming style, 125-43 
Program stub, 219-24 
Pseudocode, 14-15, 151, 156, 

217-18, 244 
Punctuation character, 298 
Punctuation in COBOL, 6 



Q 

as CEDIT command, 32, 34 
Qualification, 107-9, 117, 298 

R 



Record, 12, 298 
RECORD CONTAINS, 46, 87 
RECORD KEY, 239, 242, 245 
REDEFINES, 112-13, 186 
Relational operator, 298 
REPLACING (see INSPECT) 
Reserved word, 5, 42, 70, 75, 

87, 276-79 
REVERSE, 104,105 
REWRITE, 239 
ROUNDED, 106-7,117 
RSCOBOL, 26, 27 
RUNCOBOL, 30 



as CEDIT command, 32 

in PICTURE, 147-48 
SEARCH, 186 
SEARCH ALL, 186 
Section, 102,134, 298 

with DECLARATIVES, 240 
Sector, 236 
Sector index, 237-38 
SECURITY, 43 
SELECT, 16, 19, 31, 44, 70, 238, 

242 
Selection structure, 136-37 
Sequence check, 230 
Sequence numbers in COBOL, 34 
Sequence structure, 136-37 
Sequencing paragraph names, 128 
Sequential file maintenance (see 

File maintenance) 
SET, 188-89 

Signed number, 147-48, 151, 152 
SIZE ERROR, 106-7, 117, 130 
Slash: 

in column, 7, 130 

as editing character, 146 
SOURCE-COMPUTER, 7, 44 
Source program, 24 
SPACE, 47, 55 
Standards, 126-36 
START, 75 
STOP RUN, 59 
Structured English, 14 
Structured programming, 136-43 
Stub (see Program stub) 
Subprogram, 169-76 
Subroutine (see Subprogram) 
Subscript, 134-35 (see OCCURS 

and Table entries) 
SUBTRACT, 49-50, 130 
Switch, 134-35 
Symbol, 6 
Syntax, 42, 282-96 



Tables (cont.) 

two dimension, 196-202 
variable length, 184-85, 187 
Testing (see Top down testing) 
Three-level table (see Table) 
THROUGH (see THRU) 
THRU (see PERFORM) 
TIME, 104-5 
Top down testing, 219-24 
Track, 230 
Track index, 236-38 
Transaction code, 216 
TRSDOS, 24, 26 
TRS-80 reference manuals, 24 
Truncation (see MOVE) 
Two-level table (see Table) 



U 

Unmatched transaction, 217 
UNTIL (see PERFORM) 
UP BY (see SET) 
Update program (see File 

maintenance 
USE, 240 
USING, 170-71,175 



V 



as assumed decimal point, 56-58 
VALUE clause, 47, 87, 106, 

112, 186 
VALUES ARE, 100 
Variable-length table (see Table) 
VARYING (see PERFORM) 



W 

as CEDIT command, 32, 34 
WORKING-STORAGE SECTION, 

46-47 
WRITE, 53-54, 88 

AFTER ADVANCING, 130 

FROM, 106 

INVALID KEY, 239 



X 

as CEDIT command, 32, 34 
as compiler option, 27 
in PICTURE clause, 7, 44 



Yourdon, E., 128 



as CEDIT command, 32 
RANDOM, 238, 242 
Range check, 229 
READ, 88 

ATEND, 53,130, 298 

INTO, 105 

INVALID KEY, 239, 245, 298 
Reasonableness check, 229 
Receiving item (see MOVE) 



as CEDIT command, 32, 34 
as compiler option, 27 

TAB, 34 

Tables, 109-14, 184-204 
initialization, 112-13, 116, 

187-88 
lookup, 113-14, 186-89 
one dimension, 110 
three dimension, 202-4 



as editing character, 64, 146, 
147 
Zero: 

as editing character, 146 
ZERO, 47 
ZEROES, 47 
ZEROS, 47,55 
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Robert TGrouer 




TRS-80 COBOL is a substantial COBOL text covering all elements of the 
language, as implemented on the TRS-80 machines. Robert T. Grauer 
adheres to sound programming practices, and uses structured 
programming exclusively. Pseudocode and hierarchy charts are 
emphasized, while the traditional flowchart is de-emphasized. 

This is a "learn by doing" approach that stresses early access to the 
machine as well as constant exposure to complete COBOL programs. 
Every COBOL chapter contains at least one program to tie together the 
major points in that chapter. 

• 

A listing of chapter contents shows the wide range of material: 



Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 
Chapter 



1 is a rapid introduction to COBOL. 

2 develops concepts of file processing. 

3 deals exclusively with the TRS-SO. 

4 return^ to COBOL 

5 debugs both compilation and execution errors. 

6 introduces some advanced elements of the language. 

7 discusses programming style, 

8 introduces the concept of control breaks. 

9 covers subprograms and the COPY statement. 

10 is a comprehensive treatment of table processing. 

11 focuses on sequential file maintenance. 

12 parallels Chapter 11, except for nonsequential maintenance. 



Review exercises are included at the end of each chapter. 
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